[elpa] externals/org 1d99f5a: lisp/org.el: Minor enhancement to `org-priority'

[ELPA Syncer]

branch: externals/org
commit 1d99f5a65ae109f89cc8be5d16f4ad3304ca9a94
Author: Bastien <bzg@gnu.org>
Commit: Bastien <bzg@gnu.org>

    lisp/org.el: Minor enhancement to `org-priority'
    
    * lisp/org.el (org-priority): When the set of numeric priorities
    only comprises single digits, ask for a single char event.
---
 lisp/org.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index af5b952..1df6862 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -11258,10 +11258,13 @@ or a character."
            (setq
             new
             (if nump
-                (string-to-number
-                 (read-string (format "Priority %s-%s, SPC to remove: "
-                                      (number-to-string org-priority-highest)
-                                      (number-to-string org-priority-lowest))))
+                 (let ((msg (format "Priority %s-%s, SPC to remove: "
+                                   (number-to-string org-priority-highest)
+                                   (number-to-string org-priority-lowest))))
+                   (if (< 9 org-priority-lowest)
+                      (string-to-number (read-string msg))
+                     (message msg)
+                     (string-to-number (char-to-string 
(read-char-exclusive)))))
               (progn (message "Priority %c-%c, SPC to remove: "
                                 org-priority-highest org-priority-lowest)
                        (save-match-data