org-capture: Silence byte-compiler

* lisp/org-capture.el (org-capture-set-target-location): Fix pcase
patterns.
This commit is contained in:
Nicolas Goaziou 2019-12-09 22:14:01 +01:00
parent 1c4a3c4f69
commit 2f9188658b
1 changed files with 5 additions and 4 deletions

View File

@ -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