From ef1e81d408e1afaf0cfd507db998f12546ccfa43 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 16:00:52 +0300 Subject: [PATCH 08/76] Deprecate org-agenda-filtered-by-top-headline. --- lisp/org-agenda.el | 8 ++++---- lisp/org-compat.el | 2 ++ 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 48539f3e5..553b2d454 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7700,15 +7700,15 @@ search from." "^\\[[0-9]+/[0-9]+\\] *\\|^\\[%[0-9]+\\] *" "" (nth 4 (org-heading-components))))))) -(defvar org-agenda-filtered-by-top-headline nil) +(defvar org-agenda-filtered-by-top-heading nil) (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." (interactive "P") - (if org-agenda-filtered-by-top-headline + (if org-agenda-filtered-by-top-heading (progn - (setq org-agenda-filtered-by-top-headline nil + (setq org-agenda-filtered-by-top-heading nil org-agenda-top-headline-filter nil) (org-agenda-filter-show-all-top-filter)) (let ((toph (org-find-top-headline (org-get-at-bol 'org-hd-marker)))) @@ -8245,7 +8245,7 @@ grouptags." (when (get-char-property (point) 'invisible) (org-agenda-previous-line)) (setq org-agenda-top-headline-filter heading - org-agenda-filtered-by-top-headline t)) + org-agenda-filtered-by-top-heading t)) (defun org-agenda-filter-hide-line (type) "If current line is TYPE, hide it in the agenda buffer." diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 8f078f8d5..c825a187e 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -324,6 +324,8 @@ Counting starts at 1." 'org-agenda-filter-by-top-heading "9.5") (define-obsolete-function-alias 'org-agenda-filter-top-headline-apply 'org-agenda-filter-top-heading-apply "9.5") +(define-obsolete-variable-alias 'org-agenda-filtered-by-top-headline + 'org-agenda-filtered-by-top-heading "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." -- 2.33.0