diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-04-17 20:04:09 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-04-17 20:04:09 +0200 |
commit | 68f60dbdd54eff36efcc1cd6232b03617c57c96f (patch) | |
tree | bd7438fc404bef4ccf634bf61aaab12f1fc51675 | |
parent | 03873f070c2020a71e3ae7fc805d20edfcd3f4f0 (diff) | |
download | org-mode-68f60dbdd54eff36efcc1cd6232b03617c57c96f.tar.gz |
org-capture: Fix typo
* lisp/org-capture.el (org-capture-fill-template): Fix typo introduced
in last commit.
Reported-by: Kaushal Modi <kaushal.modi@gmail.com>
<http://permalink.gmane.org/gmane.emacs.orgmode/113126>
-rw-r--r-- | lisp/org-capture.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/org-capture.el b/lisp/org-capture.el index a951f81..551ff28 100644 --- a/lisp/org-capture.el +++ b/lisp/org-capture.el @@ -1748,10 +1748,9 @@ The template may still contain \"%?\" for cursor positioning." (org-set-tags nil 'align)))))) ((or "C" "L") (let ((insert-fun (if (equal key "C") #'insert - (lambda (s) (org-insert-link 0 s)))) - (first-value (car org-capture--clipboards))) - (pcase (length org-capture--clipboards) - (nil nil) + (lambda (s) (org-insert-link 0 s))))) + (pcase org-capture--clipboards + (`nil nil) (`(,value) (funcall insert-fun value)) (`(,first-value . ,_) (funcall insert-fun |