Browse Source

org.el: Use `defalias' for priority aliases.

* lisp/org.el (org-highest-priority, org-lowest-priority)
(org-default-priority): Use `defalias'.
Bastien 5 years ago
parent
commit
e062ca7199
1 changed files with 4 additions and 3 deletions
  1. 4 3
      lisp/org.el

+ 4 - 3
lisp/org.el

@@ -2383,7 +2383,8 @@ set a priority."
   :group 'org-priorities
   :group 'org-priorities
   :type 'boolean)
   :type 'boolean)
 
 
-(defvaralias 'org-highest-priority 'org-priority-highest)
+(defalias 'org-highest-priority 'org-priority-highest)
+
 (defcustom org-priority-highest ?A
 (defcustom org-priority-highest ?A
   "The highest priority of TODO items.
   "The highest priority of TODO items.
 A character like ?A, ?B, etc., or a numeric value like 1, 2, etc.
 A character like ?A, ?B, etc., or a numeric value like 1, 2, etc.
@@ -2393,7 +2394,7 @@ Must be smaller than `org-priority-lowest'."
 	  (character :tag "Character")
 	  (character :tag "Character")
 	  (integer :tag "Integer (< 65)")))
 	  (integer :tag "Integer (< 65)")))
 
 
-(defvaralias 'org-lowest-priority 'org-priority-lowest)
+(defalias 'org-lowest-priority 'org-priority-lowest)
 (defcustom org-priority-lowest ?C
 (defcustom org-priority-lowest ?C
   "The lowest priority of TODO items.
   "The lowest priority of TODO items.
 A character like ?A, ?B, etc., or a numeric value like 1, 2, etc.
 A character like ?A, ?B, etc., or a numeric value like 1, 2, etc.
@@ -2403,7 +2404,7 @@ Must be higher than `org-priority-highest'."
 	  (character :tag "Character")
 	  (character :tag "Character")
 	  (integer :tag "Integer (< 65)")))
 	  (integer :tag "Integer (< 65)")))
 
 
-(defvaralias 'org-default-priority 'org-priority-default)
+(defalias 'org-default-priority 'org-priority-default)
 (defcustom org-priority-default ?B
 (defcustom org-priority-default ?B
   "The default priority of TODO items.
   "The default priority of TODO items.
 This is the priority an item gets if no explicit priority is given.
 This is the priority an item gets if no explicit priority is given.