branch: externals/org
commit 7ca140ae2b96c5d5ab4bdc54abb03343cc2d580a
Author: Jacob S. Gordon <[email protected]>
Commit: Ihor Radchenko <[email protected]>
org-mouse: Add actions to priority menus
* etc/ORG-NEWS (New features): Announce change.
* lisp/org-mouse.el (org-mouse-priority-menu): Add actions.
---
etc/ORG-NEWS | 5 +++++
lisp/org-mouse.el | 6 +++++-
2 files changed, 10 insertions(+), 1 deletion(-)
diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS
index fccd5c8781..472f7ef767 100644
--- a/etc/ORG-NEWS
+++ b/etc/ORG-NEWS
@@ -35,6 +35,11 @@ into a "Tags" section and a "Priorities" section.
# We list the most important features, and the features that may
# require user action to be used.
+*** New actions in the ~org-mouse~ priority menus
+
+Priorities can now be increased, decreased, set to the default, and
+set interactively from the priority context menus.
+
** New and changed options
# Changes dealing with changing default values of customizations,
diff --git a/lisp/org-mouse.el b/lisp/org-mouse.el
index 68ebc3e550..594e08e594 100644
--- a/lisp/org-mouse.el
+++ b/lisp/org-mouse.el
@@ -425,7 +425,11 @@ SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:"
(org-mouse-get-priority t)
"Priority %s")
'("--"
- ["None" (org-priority 'remove) t])))
+ ["None" (org-priority 'remove) t]
+ ["Increase" (org-priority-up) t]
+ ["Decrease" (org-priority-down) t]
+ ["Default" (org-priority org-priority-default) t]
+ ["Set..." (org-priority 'set) t])))
(defun org-mouse-todo-menu (state)
"Create the menu with TODO keywords."
