branch: externals/org
commit 923c4fae6080dab0a22c63727bab788a0918fe4a
Author: Jacob S. Gordon <[email protected]>
Commit: Ihor Radchenko <[email protected]>
; org-mouse: Fix errors when called from the agenda
* lisp/org-mouse.el (org-mouse-cmd): Remove unbound variable.
(org-mouse-do-remotely): Remove messages.
Link: https://list.orgmode.org/orgmode/87cy2gdcgc.fsf@localhost/
---
lisp/org-mouse.el | 5 -----
1 file changed, 5 deletions(-)
diff --git a/lisp/org-mouse.el b/lisp/org-mouse.el
index f9b315ae28..89432c7f79 100644
--- a/lisp/org-mouse.el
+++ b/lisp/org-mouse.el
@@ -1006,8 +1006,6 @@ This means, between the beginning of line and the point."
(replace-match replace-text))
(forward-line))))
-(defvar org-mouse-cmd) ;dynamically scoped from `org-with-remote-undo'.
-
(defun org-mouse-do-remotely (command)
;; (org-agenda-check-no-diary)
(when (get-text-property (point) 'org-marker)
@@ -1037,11 +1035,8 @@ This means, between the beginning of line and the point."
(setq marker (point-marker))
(goto-char (max (line-beginning-position) (- (line-end-position)
anticol)))
(funcall command)
- (message "_cmd: %S" org-mouse-cmd)
- (message "this-command: %S" this-command)
(unless (eq (marker-position marker) (marker-position endmarker))
(setq newhead (org-get-heading))))
-
(forward-line 1)
(save-excursion
(org-agenda-change-all-lines newhead hdmarker 'fixface))))
