tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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:
Nicolas Goaziou 2016-10-18 23:56:16 +02:00
parent adaf808605
commit 3c6c53d426
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org-agenda.el
View File

@ -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