diff options
| author | Julien Danjou <julien@danjou.info> | 2011-03-18 15:24:31 +0100 |
|---|---|---|
| committer | Julien Danjou <julien@danjou.info> | 2011-03-18 15:24:31 +0100 |
| commit | d5383b1769a1e70ae8e220490a75cd1b4f0d7cc4 (patch) | |
| tree | acc70a5521a1fd1335dee4697a76afa20cf14867 | |
| parent | 9939312b37faa91af714dd9868a48723989caf41 (diff) | |
| download | org-mode-d5383b1769a1e70ae8e220490a75cd1b4f0d7cc4.tar.gz | |
org-icompleting-read cosmetic cleanup
* lisp/org.el (org-icompleting-read): Do not use useless lambda.
Signed-off-by: Julien Danjou <julien@danjou.info>
| -rw-r--r-- | lisp/org.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el index 35ead16..27a3949 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -9019,7 +9019,7 @@ from." (let ((ido-enter-matching-directory nil)) (apply 'ido-completing-read (concat (car args)) (if (consp (car (nth 1 args))) - (mapcar (lambda (x) (car x)) (nth 1 args)) + (mapcar 'car (nth 1 args)) (nth 1 args)) (cddr args))) (if (and org-completion-use-iswitchb @@ -9027,7 +9027,7 @@ from." (listp (second args))) (apply 'org-iswitchb-completing-read (concat (car args)) (if (consp (car (nth 1 args))) - (mapcar (lambda (x) (car x)) (nth 1 args)) + (mapcar 'car (nth 1 args)) (nth 1 args)) (cddr args)) (apply 'completing-read args))))) |