diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2014-12-03 01:37:50 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2014-12-03 01:37:50 -0500 |
| commit | 4b803fe47650b03895d5597eb8edd28bbdaf0052 (patch) | |
| tree | 00d33e204756adb875595d131bb770b65d99bf39 | |
| parent | 87a2c26d425f83cc053aaa4b46fb15a88bd9d6ce (diff) | |
| download | emacs.d-4b803fe47650b03895d5597eb8edd28bbdaf0052.tar.gz | |
org-remove-title-leader: Allow priorities
| -rw-r--r-- | lisp/init-org.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/init-org.el b/lisp/init-org.el index 58c29c2..9aedbac 100644 --- a/lisp/init-org.el +++ b/lisp/init-org.el @@ -227,11 +227,12 @@ to * TODO Rest of title :tag:" (interactive) (save-excursion - (let ((regex (format "^%s\\(?:%s \\)?\\(.*: \\)\\w+" - org-outline-regexp org-todo-regexp))) + (let ((regex (format "^%s\\(?:%s \\)?\\(?:%s \\)?\\(.*: \\)\\w+" + org-outline-regexp org-todo-regexp + org-priority-regexp))) (org-back-to-heading) (when (re-search-forward regex (point-at-eol) t) - (replace-match "" nil nil nil 2) + (replace-match "" nil nil nil 4) (org-set-tags nil t))))) ;;; Org in other modes |