From cd8f90639359e3ce26874a425e78f768389cabf0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 15:06:11 +0300 Subject: [PATCH 06/76] Deprecate org-agenda-filter-by-top-headline. --- lisp/org-agenda.el | 6 +++--- lisp/org-compat.el | 2 ++ 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index ddfaf9a66..28cde5378 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -2456,7 +2456,7 @@ The following commands are available: (org-defkey org-agenda-mode-map "|" #'org-agenda-filter-remove-all) (org-defkey org-agenda-mode-map "~" #'org-agenda-limit-interactively) (org-defkey org-agenda-mode-map "<" #'org-agenda-filter-by-category) -(org-defkey org-agenda-mode-map "^" #'org-agenda-filter-by-top-headline) +(org-defkey org-agenda-mode-map "^" #'org-agenda-filter-by-top-heading) (org-defkey org-agenda-mode-map ";" #'org-timer-set-timer) (org-defkey org-agenda-mode-map "\C-c\C-x_" #'org-timer-stop) (org-defkey org-agenda-mode-map "?" #'org-agenda-show-the-flagging-note) @@ -2540,7 +2540,7 @@ The following commands are available: ["by tag" org-agenda-filter-by-tag t] ["by effort" org-agenda-filter-by-effort t] ["by regexp" org-agenda-filter-by-regexp t] - ["by top-level headline" org-agenda-filter-by-top-headline t] + ["by top-level heading" org-agenda-filter-by-top-heading t] "--" ["Remove all filtering" org-agenda-filter-remove-all t] "--" @@ -7701,7 +7701,7 @@ search from." (nth 4 (org-heading-components))))))) (defvar org-agenda-filtered-by-top-headline nil) -(defun org-agenda-filter-by-top-headline (strip) +(defun org-agenda-filter-by-top-heading (strip) "Keep only those lines that are descendants from the same top heading. The top heading is that of the current line. With prefix arg STRIP, hide all lines of the category at point." diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 800b425a7..498d61344 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -320,6 +320,8 @@ Counting starts at 1." ;; /s/headline/heading (define-obsolete-function-alias 'org-add-log-current-headline 'org-add-log-current-heading "9.5") +(define-obsolete-function-alias 'org-agenda-filter-by-top-headline + 'org-agenda-filter-by-top-heading "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." -- 2.33.0