From 4b803fe47650b03895d5597eb8edd28bbdaf0052 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Wed, 3 Dec 2014 01:37:50 -0500 Subject: org-remove-title-leader: Allow priorities --- lisp/init-org.el | 7 ++++--- 1 file 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 -- cgit v1.2.3