summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlan Schmitt <alan.schmitt@polytechnique.org>2015-12-18 11:28:39 +0100
committerAlan Schmitt <alan.schmitt@polytechnique.org>2015-12-18 11:28:39 +0100
commite43d0abdd17d23ce03ca84d8a832123f39b4545a (patch)
tree94a97c1eb2291b27129cd272e673e25e9278b510
parent2e251821ce4b073e485c533c0c4e8c0fc1c40b98 (diff)
downloadorg-mode-e43d0abdd17d23ce03ca84d8a832123f39b4545a.tar.gz
org-mac-link: Do not quote lambdas
* contrib/lisp/org-mac-link.el (org-mac-grab-link): Do not quote lambdas.
-rw-r--r--contrib/lisp/org-mac-link.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/lisp/org-mac-link.el b/contrib/lisp/org-mac-link.el
index 5870b73..1563c98 100644
--- a/contrib/lisp/org-mac-link.el
+++ b/contrib/lisp/org-mac-link.el
@@ -256,7 +256,7 @@ When done, go grab the link, and insert it at point."
input)
;; Create the menu string for the keymap
- (mapc '(lambda (descriptor)
+ (mapc (lambda (descriptor)
(when (elt descriptor 3)
(setf menu-string (concat menu-string
"[" (elt descriptor 0) "]"
@@ -267,7 +267,7 @@ When done, go grab the link, and insert it at point."
;; Prompt the user, and grab the link
(message menu-string)
(setq input (read-char-exclusive))
- (mapc '(lambda (descriptor)
+ (mapc (lambda (descriptor)
(let ((key (elt (elt descriptor 0) 0))
(active (elt descriptor 3))
(grab-function (elt descriptor 2)))