From 1fb95b18b391ca442d7037d0cb6c342d20536f39 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 19:14:07 +0300 Subject: [PATCH 11/76] Deprecate org-agenda-search-headline-for-time. --- 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 e2d9efbe4..cc9afd1a8 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -1492,7 +1492,7 @@ value, don't limit agenda view by outline level." :tag "Org Agenda Time Grid" :group 'org-agenda) -(defcustom org-agenda-search-headline-for-time t +(defcustom org-agenda-search-heading-for-time t "Non-nil means search heading for a time-of-day. If the heading contains a time-of-day in one format or another, it will be used to sort the entry into the time sequence of items for a day. @@ -4432,7 +4432,7 @@ items if they have an hour specification like [h]h:mm." org-agenda-entry-types))))) (setq rtnall (append rtnall rtn)))) ;; all entries (when org-agenda-include-diary - (let ((org-agenda-search-headline-for-time t)) + (let ((org-agenda-search-heading-for-time t)) (require 'diary-lib) (setq rtn (org-get-entries-from-diary date)) (setq rtnall (append rtnall rtn)))) @@ -5970,7 +5970,7 @@ then those holidays will be skipped." (encode-time ; DATE bound by calendar 0 0 0 (nth 1 date) (car date) (nth 2 date))) 1 11)))) - (org-agenda-search-headline-for-time nil) + (org-agenda-search-heading-for-time nil) marker hdmarker priority category level tags closedp type statep clockp state ee txt extra timestr rest clocked inherited-tags) (goto-char (point-min)) @@ -6723,7 +6723,7 @@ Any match of REMOVE-RE will be removed from TXT." time (ts (when dotime (concat (if (stringp dotime) dotime "") - (and org-agenda-search-headline-for-time txt)))) + (and org-agenda-search-heading-for-time txt)))) (time-of-day (and dotime (org-get-time-of-day ts))) stamp plain s0 s1 s2 rtn srp l duration breadcrumbs) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index ac8073cad..c77c1f295 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -330,6 +330,8 @@ Counting starts at 1." 'org-agenda-heading-snapshot-before-repeat "9.5") (define-obsolete-variable-alias 'org-agenda-loop-over-headlines-in-active-region 'org-agenda-loop-over-headings-in-active-region "9.5") +(define-obsolete-variable-alias 'org-agenda-search-headline-for-time + 'org-agenda-search-heading-for-time "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." -- 2.33.0