org-notify: Fix an error in `org-notify-process' when unconfigured
* contrib/lisp/org-notify.el (org-notify-todo-list): Return nil if `org-agenda-files' is nil.
This commit is contained in:
parent
575d66625d
commit
1553aae994
|
@ -137,6 +137,7 @@ simple timestamp string."
|
|||
"Create the todo-list for one org-agenda file."
|
||||
(let* ((files (org-agenda-files 'unrestricted))
|
||||
(max (1- (length files))))
|
||||
(when files
|
||||
(setq org-notify-parse-file
|
||||
(if (or (not org-notify-parse-file) (>= org-notify-parse-file max))
|
||||
0
|
||||
|
@ -145,7 +146,7 @@ simple timestamp string."
|
|||
(with-current-buffer (find-file-noselect
|
||||
(nth org-notify-parse-file files))
|
||||
(org-element-map (org-element-parse-buffer 'headline)
|
||||
'headline 'org-notify-make-todo)))))
|
||||
'headline 'org-notify-make-todo))))))
|
||||
|
||||
(defun org-notify-maybe-too-late (diff period heading)
|
||||
"Print warning message, when notified significantly later than defined by
|
||||
|
|
Loading…
Reference in New Issue