diff options
author | Peter Münster <pmlists@free.fr> | 2015-08-24 15:47:13 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-08-24 22:44:07 +0200 |
commit | 0b524dd82c845ef64045529570926eb73b72145a (patch) | |
tree | ff0e91cf40c0de9f2b627c607fd833506778c749 | |
parent | 4ef2c0e439af3e7218ee0c1fe8eda72a94597a1a (diff) | |
download | org-mode-0b524dd82c845ef64045529570926eb73b72145a.tar.gz |
org-notify: Fix compatibility with latest org-element (uppercase properties)
* contrib/lisp/org-notify.el (org-notify-make-todo): Properties from
org-element are all uppercase now.
* (org-notify-maybe-too-late): Fix typo in docstring (thanks to davemq,
https://github.com/p-m/org-notify/issues/3).
-rw-r--r-- | contrib/lisp/org-notify.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/lisp/org-notify.el b/contrib/lisp/org-notify.el index da2c96f..8bcca9f 100644 --- a/contrib/lisp/org-notify.el +++ b/contrib/lisp/org-notify.el @@ -120,7 +120,7 @@ simple timestamp string." "Create one todo item." (macrolet ((get (k) `(plist-get list ,k)) (pr (k v) `(setq result (plist-put result ,k ,v)))) - (let* ((list (nth 1 heading)) (notify (or (get :notify) "default")) + (let* ((list (nth 1 heading)) (notify (or (get :NOTIFY) "default")) (deadline (org-notify-convert-deadline (get :deadline))) (heading (get :raw-value)) result) @@ -148,7 +148,7 @@ simple timestamp string." 'headline 'org-notify-make-todo))))) (defun org-notify-maybe-too-late (diff period heading) - "Print waring message, when notified significantly later than defined by + "Print warning message, when notified significantly later than defined by PERIOD." (if (> (/ diff period) 1.5) (message "Warning: notification for \"%s\" behind schedule!" heading)) |