diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-01-05 23:59:05 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-01-05 23:59:05 +0100 |
commit | 8e273a3d32b2d2a49bf74668aed6050707401ff1 (patch) | |
tree | 82e189567b16cb42db941c91f6f439e2598fd2b9 | |
parent | b5515ace2fe9c8bb0d5572feff0f9d5501bb785f (diff) | |
download | org-mode-8e273a3d32b2d2a49bf74668aed6050707401ff1.tar.gz |
org-capture: Fix code typo
* lisp/org-capture.el (org-capture-fill-template): Fix `pcase'.
-rw-r--r-- | lisp/org-capture.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/org-capture.el b/lisp/org-capture.el index 6ee75b5..4dd37c9 100644 --- a/lisp/org-capture.el +++ b/lisp/org-capture.el @@ -1702,7 +1702,7 @@ The template may still contain \"%?\" for cursor positioning." (key (match-string 2))) (delete-region (match-beginning 0) (match-end 0)) (pcase key - ((or `"G" `"g") + ((or "G" "g") (let* ((org-last-tags-completion-table (org-global-tags-completion-table (cond ((equal key "G") (org-agenda-files)) @@ -1725,7 +1725,7 @@ The template may still contain \"%?\" for cursor positioning." (and (org-at-heading-p) (let ((org-ignore-region t)) (org-set-tags nil 'align)))))) - (`"C" + ("C" (cond ((= (length clipboards) 1) (insert (car clipboards))) ((> (length clipboards) 1) @@ -1733,7 +1733,7 @@ The template may still contain \"%?\" for cursor positioning." (car clipboards) '(clipboards . 1) (car clipboards)))))) - (`"L" + ("L" (cond ((= (length clipboards) 1) (org-insert-link 0 (car clipboards))) ((> (length clipboards) 1) @@ -1743,7 +1743,7 @@ The template may still contain \"%?\" for cursor positioning." (car clipboards) '(clipboards . 1) (car clipboards)))))) - (`"p" (org-set-property prompt nil)) + ("p" (org-set-property prompt nil)) ((guard key) ;; These are the date/time related ones. (let* ((upcase? (equal (upcase key) key)) |