ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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:
Jay Kamat 2018-04-09 21:47:58 -04:00 committed by Nicolas Goaziou
parent 575d66625d
commit 1553aae994
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
contrib/lisp/org-notify.el
View File

@ -137,6 +137,7 @@ simple timestamp string."
"Create the todo-list for one org-agenda file." "Create the todo-list for one org-agenda file."
(let* ((files (org-agenda-files 'unrestricted)) (let* ((files (org-agenda-files 'unrestricted))
(max (1- (length files)))) (max (1- (length files))))
(when files
(setq org-notify-parse-file (setq org-notify-parse-file
(if (or (not org-notify-parse-file) (>= org-notify-parse-file max)) (if (or (not org-notify-parse-file) (>= org-notify-parse-file max))
0 0
@ -145,7 +146,7 @@ simple timestamp string."
(with-current-buffer (find-file-noselect (with-current-buffer (find-file-noselect
(nth org-notify-parse-file files)) (nth org-notify-parse-file files))
(org-element-map (org-element-parse-buffer 'headline) (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) (defun org-notify-maybe-too-late (diff period heading)
"Print warning message, when notified significantly later than defined by "Print warning message, when notified significantly later than defined by