[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org b91e934 33/41: lisp/org.el: Minor enhancement to `o
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org b91e934 33/41: lisp/org.el: Minor enhancement to `org-priority' |
Date: |
Sun, 16 May 2021 04:57:22 -0400 (EDT) |
branch: externals/org
commit b91e934a59f0da839c7fc5680d45ce1ddc1b718a
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
- [elpa] externals/org ee40458 25/41: lisp/ox-latex.el: Allow arbitrary float environments, (continued)
- [elpa] externals/org ee40458 25/41: lisp/ox-latex.el: Allow arbitrary float environments, ELPA Syncer, 2021/05/16
- [elpa] externals/org 336efd6 37/41: lisp/*: Use version number when obsoleting, ELPA Syncer, 2021/05/16
- [elpa] externals/org fdd7072 38/41: Merge branch 'master' of code.orgmode.org:bzg/org-mode, ELPA Syncer, 2021/05/16
- [elpa] externals/org 70d98b5 41/41: Merge branch 'master' of code.orgmode.org:bzg/org-mode, ELPA Syncer, 2021/05/16
- [elpa] externals/org df9b509 28/41: lisp/org-attach-git.el: New option `org-attach-git-dir', ELPA Syncer, 2021/05/16
- [elpa] externals/org c7be27d 29/41: Merge remote-tracking branch 'savannah/bugfix', ELPA Syncer, 2021/05/16
- [elpa] externals/org 91373e1 26/41: ox-latex.el: Support specific attributes for verse block, ELPA Syncer, 2021/05/16
- [elpa] externals/org ef495b7 30/41: ox-html: Fix typography in a docstring, ELPA Syncer, 2021/05/16
- [elpa] externals/org 53b5af2 39/41: Merge branch 'maint', ELPA Syncer, 2021/05/16
- [elpa] externals/org b413355 36/41: lisp/ol.el: Enhance message when the link has already been stored, ELPA Syncer, 2021/05/16
- [elpa] externals/org b91e934 33/41: lisp/org.el: Minor enhancement to `org-priority',
ELPA Syncer <=
- [elpa] externals/org f4b881e 35/41: lisp/org.el: Explicit the docstrings of org-priority-highest/lowest, ELPA Syncer, 2021/05/16
- [elpa] externals/org 4362b93 40/41: Merge branch 'maint', ELPA Syncer, 2021/05/16