branch: externals/org
commit 9f5594848307c16cc926eb0273cc982804977b5c
Author: Jacob S. Gordon <[email protected]>
Commit: Ihor Radchenko <[email protected]>
; org-mouse: Fix schedule and deadline actions
* lisp/org-mouse.el (org-mouse-context-menu): Call 'org-deadline' and
'org-schedule' interactively.
---
lisp/org-mouse.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/org-mouse.el b/lisp/org-mouse.el
index 594e08e594..b2a6377adc 100644
--- a/lisp/org-mouse.el
+++ b/lisp/org-mouse.el
@@ -829,11 +829,11 @@ This means, between the beginning of line and the point."
,@(if org-mouse-direct '("--") nil)
["New Heading" org-mouse-insert-heading :visible org-mouse-direct]
["Set Deadline"
- (progn (org-mouse-end-headline) (insert " ") (org-deadline))
+ (call-interactively #'org-deadline)
:active (not (save-excursion
(org-mouse-re-search-line org-deadline-regexp)))]
["Schedule Task"
- (progn (org-mouse-end-headline) (insert " ") (org-schedule))
+ (call-interactively #'org-schedule)
:active (not (save-excursion
(org-mouse-re-search-line org-scheduled-regexp)))]
["Insert Timestamp"
