diff options
author | Alan Schmitt <alan.schmitt@polytechnique.org> | 2015-12-18 11:28:39 +0100 |
---|---|---|
committer | Alan Schmitt <alan.schmitt@polytechnique.org> | 2015-12-18 11:28:39 +0100 |
commit | e43d0abdd17d23ce03ca84d8a832123f39b4545a (patch) | |
tree | 94a97c1eb2291b27129cd272e673e25e9278b510 | |
parent | 2e251821ce4b073e485c533c0c4e8c0fc1c40b98 (diff) | |
download | org-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.el | 4 |
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))) |