diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2019-12-09 22:14:01 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2019-12-09 22:14:01 +0100 |
| commit | 2f9188658b09cafd53a39f3e62d325592aab33b1 (patch) | |
| tree | d13a9f1b0246215f9972484a5398ed1df0e83e4e | |
| parent | 1c4a3c4f69f54a4ff4455dbad1d9deb23dd7bd98 (diff) | |
| download | org-mode-2f9188658b09cafd53a39f3e62d325592aab33b1.tar.gz | |
org-capture: Silence byte-compiler
* lisp/org-capture.el (org-capture-set-target-location): Fix pcase
patterns.
| -rw-r--r-- | lisp/org-capture.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/org-capture.el b/lisp/org-capture.el index 39121d1..ef35615 100644 --- a/lisp/org-capture.el +++ b/lisp/org-capture.el @@ -996,12 +996,13 @@ Store them in the capture property list." (org-capture-put-target-region-and-position) (widen) ;; Make a date/week tree entry, with the current date (or - ;; yesterday, if we are extending dates for a couple of hours) + ;; yesterday, if we are extending dates for a couple of + ;; hours) (funcall (pcase (org-capture-get :tree-type) - ('week #'org-datetree-find-iso-week-create) - ('month #'org-datetree-find-month-create) - (t #'org-datetree-find-date-create)) + (`week #'org-datetree-find-iso-week-create) + (`month #'org-datetree-find-month-create) + (_ #'org-datetree-find-date-create)) (calendar-gregorian-from-absolute (cond (org-overriding-default-time |