From 0b2a569ff95dcca688963aa9855248bd217a5ed3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:33:39 +0300 Subject: [PATCH 60/76] Deprecate org-mouse-show-headlines. --- lisp/org-compat.el | 2 ++ lisp/org-mouse.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 6c0ca4ac6..e7ef18364 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -414,6 +414,8 @@ Counting starts at 1." 'org-md-heading-style "9.5") (define-obsolete-function-alias 'org-mouse-end-headline 'org-mouse-end-heading "9.5") +(define-obsolete-function-alias 'org-mouse-show-headlines + 'org-mouse-show-headings "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 b599a533f..c9ba6eb9c 100644 --- a/lisp/org-mouse.el +++ b/lisp/org-mouse.el @@ -354,7 +354,7 @@ nor a function, elements of KEYWORDS are used directly." :style radio :selected ,(not (member (match-string group) keywords))])))) -(defun org-mouse-show-headlines () +(defun org-mouse-show-headings () "Change the visibility of the current org buffer to only show headings." (interactive) (let ((this-command 'org-cycle) @@ -485,7 +485,7 @@ SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:" (popup-menu `("Main Menu" ["Show Overview" org-mouse-show-overview t] - ["Show Headings" org-mouse-show-headlines t] + ["Show Headings" org-mouse-show-headings t] ["Show All" org-show-all t] ["Remove Highlights" org-remove-occur-highlights :visible org-occur-highlights] -- 2.33.0