branch: externals/org
commit 180abb6df1115db53b705ef64a2ab9f2c731c9b7
Author: Jacob S. Gordon <[email protected]>
Commit: Ihor Radchenko <[email protected]>
; org-mouse: Fix custom agenda entry actions
* lisp/org-mouse.el (org-mouse-popup-global-menu): Pass agenda keys as
strings.
---
lisp/org-mouse.el | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/lisp/org-mouse.el b/lisp/org-mouse.el
index cc258aefc3..f9b315ae28 100644
--- a/lisp/org-mouse.el
+++ b/lisp/org-mouse.el
@@ -543,8 +543,7 @@ SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:"
"--"
,@(org-mouse-keyword-menu
(mapcar #'car org-agenda-custom-commands)
- (lambda (key)
- (org-agenda nil (string-to-char key)))
+ (lambda (key) (org-agenda nil key))
nil
(lambda (key)
(let ((entry (assoc key org-agenda-custom-commands)))
