| 
					
				 | 
			
			
				@@ -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." 
			 |