浏览代码

org-capture: Silence byte-compiler

* lisp/org-capture.el (org-capture-set-target-location): Fix pcase
patterns.
Nicolas Goaziou 5 年之前
父节点
当前提交
2f9188658b
共有 1 个文件被更改,包括 5 次插入4 次删除
  1. 5 4
      lisp/org-capture.el

+ 5 - 4
lisp/org-capture.el

@@ -996,12 +996,13 @@ Store them in the capture property list."
 	   (org-capture-put-target-region-and-position)
 	   (org-capture-put-target-region-and-position)
 	   (widen)
 	   (widen)
 	   ;; Make a date/week tree entry, with the current date (or
 	   ;; 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
 	   (funcall
 	    (pcase (org-capture-get :tree-type)
 	    (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
 	    (calendar-gregorian-from-absolute
 	     (cond
 	     (cond
 	      (org-overriding-default-time
 	      (org-overriding-default-time