branch: master
commit e05e7c10c45b15e4b9a5f409e157eec9a1345bae
Author: Ian Dunn <du...@gnu.org>
Commit: Ian Dunn <du...@gnu.org>
Fixed bug in planning action
* org-edna.el (org-edna--handle-planning): Bind case-fold-search for
org-date-read-analyze.
---
org-edna.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/org-edna.el b/org-edna.el
index d460543..01f13c3 100644
--- a/org-edna.el
+++ b/org-edna.el
@@ -7,7 +7,7 @@
;; Keywords: convenience, text, org
;; URL: https://savannah.nongnu.org/projects/org-edna-el/
;; Package-Requires: ((emacs "25.1") (seq "2.19") (org "9.0.5"))
-;; Version: 1.0beta1
+;; Version: 1.0beta2
;; This file is part of GNU Emacs.
@@ -242,7 +242,7 @@ is changing from a TODO state to a DONE state, run BODY."
;; And only from a TODO state to a DONE state
(member from (cons 'todo org-not-done-keywords))
(member to (cons 'done org-done-keywords)))
- (condition-case err
+ (condition-case-unless-debug err
,@body
(error
(if (eq (car err) 'invalid-read-syntax)
@@ -1203,7 +1203,8 @@ forward) or the last day of MONTH (backward)."
;; use if that time component isn't specified. Since there's no way to
;; tell if a time was specified, tell `org-read-date-analyze' to use nil
;; if no time is found.
- (let* ((parsed-time (org-read-date-analyze arg this-time '(nil nil nil
nil nil nil)))
+ (let* ((case-fold-search t)
+ (parsed-time (org-read-date-analyze arg this-time '(nil nil nil
nil nil nil)))
(have-time (nth 2 parsed-time))
(final-time (apply 'encode-time (mapcar (lambda (e) (or e 0))
parsed-time)))
(new-ts (format-time-string (if have-time "%F %R" "%F")
final-time)))
