forked from mirrors/org-mode
org-agenda: Fix regression with `org-agenda-skip-scheduled-if-deadline-is-shown'
* lisp/org-agenda.el (org-agenda-get-scheduled): Fix code typo. Tiny
refactoring.
The typo was introduced in 72c3f5e8e5
.
Reported-by: Luke <mideniko1234-org@yahoo.co.uk>
<http://permalink.gmane.org/gmane.emacs.orgmode/109832>
This commit is contained in:
parent
adaf808605
commit
3c6c53d426
|
@ -6239,7 +6239,7 @@ scheduled items with an hour specification like [h]h:mm."
|
|||
(cond
|
||||
;; Nullify delay when a repeater triggered already
|
||||
;; and the delay is of the form --Xd.
|
||||
((and (save-match-data (string-match "--[0-9]+[hdwmy]" s))
|
||||
((and (string-match-p "--[0-9]+[hdwmy]" s)
|
||||
(/= schedule last-repeat))
|
||||
0)
|
||||
(suppress-delay
|
||||
|
@ -6270,7 +6270,7 @@ scheduled items with an hour specification like [h]h:mm."
|
|||
;; doesn't apply to habits.
|
||||
(when (pcase org-agenda-skip-scheduled-if-deadline-is-shown
|
||||
((guard
|
||||
(or (not (assq (line-beginning-position 0) deadline-pos))
|
||||
(or (not (memq (line-beginning-position 0) deadline-pos))
|
||||
habitp))
|
||||
nil)
|
||||
(`repeated-after-deadline
|
||||
|
|
Loading…
Reference in a new issue