소스 검색

Make `org-priority' accept an action argument `remove'

When given, the priority cookie will be removed.
Carsten Dominik 15 년 전
부모
커밋
72b520ed27
2개의 변경된 파일4개의 추가작업 그리고 0개의 파일을 삭제
  1. 2 0
      lisp/ChangeLog
  2. 2 0
      lisp/org.el

+ 2 - 0
lisp/ChangeLog

@@ -2,6 +2,8 @@
 
 
 	* org.el (org-refile): Make prefix argument 2 refile to current
 	* org.el (org-refile): Make prefix argument 2 refile to current
 	clock.
 	clock.
+	(org-priority): Interpret action `remove' as call to remove the
+	priority cookie.
 
 
 	* org-remember.el (org-remember-apply-template): Don't depend on
 	* org-remember.el (org-remember-apply-template): Don't depend on
 	buffer name being like file name.
 	buffer name being like file name.

+ 2 - 0
lisp/org.el

@@ -10770,6 +10770,8 @@ ACTION can be `set', `up', `down', or a character."
 		have t)
 		have t)
 	(setq current org-default-priority))
 	(setq current org-default-priority))
       (cond
       (cond
+       ((eq action 'remove)
+	(setq remote t new ?\ ))
        ((or (eq action 'set)
        ((or (eq action 'set)
 	    (if (featurep 'xemacs) (characterp action) (integerp action)))
 	    (if (featurep 'xemacs) (characterp action) (integerp action)))
 	(if (not (eq action 'set))
 	(if (not (eq action 'set))