summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien <bzg@gnu.org>2020-01-30 15:16:44 +0100
committerBastien <bzg@gnu.org>2020-01-30 15:16:44 +0100
commite11f5064842cb40e94925990613a15b9fa901e4d (patch)
treecce2637143e434fc5e7bf978dec80ff6366a03a4
parent1de5e80adf44db60c042979a902ca0de64975a39 (diff)
downloadorg-mode-e11f5064842cb40e94925990613a15b9fa901e4d.tar.gz
Continue previous commit and document it in etc/ORG-NEWS
* lisp/org.el (org-priority-enable-commands) (org-priority-highest, org-priority-get-priority-function): Define aliases. (org-priority): Use `org-priority-show'. * lisp/org-agenda.el (org-agenda-priority, org-agenda-menu): Ditto.
-rw-r--r--etc/ORG-NEWS8
-rw-r--r--lisp/org-agenda.el4
-rw-r--r--lisp/org.el10
3 files changed, 18 insertions, 4 deletions
diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS
index 520dc77..2f7b252 100644
--- a/etc/ORG-NEWS
+++ b/etc/ORG-NEWS
@@ -111,6 +111,14 @@ the attachment.
The new value uses emacs as the application for opening directory.
+*** Priority options have been renamed
+
+From ~org-lowest-priority~ to ~org-priority-lowest~.
+From ~org-default-priority~ to ~org-priority-default~.
+From ~org-highest-priority~ to ~org-priority-highest~.
+From ~org-enable-priority-commands~ to ~org-priority-enable-commands~.
+From ~org-show-priority~ to ~org-priority-show~.
+
* Version 9.3
** Incompatible changes
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 809ff68..79be45b 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -2562,7 +2562,7 @@ The following commands are available:
["Set Priority" org-agenda-priority t]
["Increase Priority" org-agenda-priority-up t]
["Decrease Priority" org-agenda-priority-down t]
- ["Show Priority" org-show-priority t])
+ ["Show Priority" org-priority-show t])
("Calendar/Diary"
["New Diary Entry" org-agenda-diary-entry (org-agenda-check-type nil 'agenda)]
["Goto Calendar" org-agenda-goto-calendar (org-agenda-check-type nil 'agenda)]
@@ -9335,7 +9335,7 @@ the same tree node, and the headline of the tree node in the Org file.
Called with a universal prefix arg, show the priority instead of setting it."
(interactive "P")
(if (equal force-direction '(4))
- (org-show-priority)
+ (org-priority-show)
(unless org-priority-enable-commands
(error "Priority commands are disabled"))
(org-agenda-check-no-diary)
diff --git a/lisp/org.el b/lisp/org.el
index 9c9d708..0820a8a 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -2556,6 +2556,7 @@ property to one or more of these keywords."
:tag "Org Priorities"
:group 'org-todo)
+(defvaralias 'org-enable-priority-commands 'org-priority-enable-commands)
(defcustom org-priority-enable-commands t
"Non-nil means priority commands are active.
When nil, these commands will be disabled, so that you never accidentally
@@ -2563,18 +2564,21 @@ set a priority."
:group 'org-priorities
:type 'boolean)
+(defvaralias 'org-highest-priority 'org-priority-highest)
(defcustom org-priority-highest ?A
"The highest priority of TODO items. A character like ?A, ?B etc.
Must have a smaller ASCII number than `org-priority-lowest'."
:group 'org-priorities
:type 'character)
+(defvaralias 'org-lowest-priority 'org-priority-lowest)
(defcustom org-priority-lowest ?C
"The lowest priority of TODO items. A character like ?A, ?B etc.
Must have a larger ASCII number than `org-priority-highest'."
:group 'org-priorities
:type 'character)
+(defvaralias 'org-default-priority 'org-priority-default)
(defcustom org-priority-default ?B
"The default priority of TODO items.
This is the priority an item gets if no explicit priority is given.
@@ -2596,6 +2600,7 @@ See also `org-priority-default'."
:group 'org-priorities
:type 'boolean)
+(defvaralias 'org-get-priority-function 'org-priority-get-priority-function)
(defcustom org-priority-get-priority-function nil
"Function to extract the priority from a string.
The string is normally the headline. If this is nil Org computes the
@@ -11654,7 +11659,7 @@ or a character."
;; passed the SHOW argument should be removed.
(warn "`org-priority' called with deprecated SHOW argument"))
(if (equal action '(4))
- (org-show-priority)
+ (org-priority-show)
(unless org-priority-enable-commands
(user-error "Priority commands are disabled"))
(setq action (or action 'set))
@@ -11732,7 +11737,8 @@ or a character."
(message "Priority removed")
(message "Priority of current item set to %s" news)))))
-(defun org-show-priority ()
+(defalias 'org-show-priority 'org-priority-show)
+(defun org-priority-show ()
"Show the priority of the current item.
This priority is composed of the main priority given with the [#A] cookies,
and by additional input from the age of a schedules or deadline entry."