From 3eaba486f5b517ca845e596311fb0a2e003cae44 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:33:06 +0300 Subject: [PATCH 59/76] Deprecate org-mouse-end-headline. --- lisp/org-compat.el | 2 ++ lisp/org-mouse.el | 8 ++++---- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index ba486a3e4..6c0ca4ac6 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -412,6 +412,8 @@ Counting starts at 1." 'org-md-heading "9.5") (define-obsolete-variable-alias 'org-md-headline-style 'org-md-heading-style "9.5") +(define-obsolete-function-alias 'org-mouse-end-headline + 'org-mouse-end-heading "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/org-mouse.el b/lisp/org-mouse.el index 8f61f48eb..b599a533f 100644 --- a/lisp/org-mouse.el +++ b/lisp/org-mouse.el @@ -186,7 +186,7 @@ Changing this variable requires a restart of Emacs to get activated." (beginning-of-line) (re-search-forward regexp (point-at-eol) t)) -(defun org-mouse-end-headline () +(defun org-mouse-end-heading () "Go to the end of current heading (ignoring tags)." (interactive) (end-of-line) @@ -809,15 +809,15 @@ 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)) + (progn (org-mouse-end-heading) (insert " ") (org-deadline)) :active (not (save-excursion (org-mouse-re-search-line org-deadline-regexp)))] ["Schedule Task" - (progn (org-mouse-end-headline) (insert " ") (org-schedule)) + (progn (org-mouse-end-heading) (insert " ") (org-schedule)) :active (not (save-excursion (org-mouse-re-search-line org-scheduled-regexp)))] ["Insert Timestamp" - (progn (org-mouse-end-headline) (insert " ") (org-time-stamp nil)) t] + (progn (org-mouse-end-heading) (insert " ") (org-time-stamp nil)) t] ; ["Timestamp (inactive)" org-time-stamp-inactive t] "--" ["Archive Subtree" org-archive-subtree] -- 2.33.0