Do not quote lambda expressions

http://emacs.stackexchange.com/a/3596

Quoting lambda expressions is at best redundant and at worst
detrimental; this commit removes all use of the sharp-quote to reduce
confusion.

diff --git a/lisp/use-package/bind-key.el b/lisp/use-package/bind-key.el
index e5f990ef0f2eacc4e36f778dc5d6b04f856d00d4..2ac32365ecf94b9c5dfbe35360b19e1607f80de4 100644 (file)
--- a/lisp/use-package/bind-key.el
+++ b/lisp/use-package/bind-key.el
@@ -285,8 +285,8 @@ function symbol (unquoted)."
       (dolist (binding
                (setq personal-keybindings
                      (sort personal-keybindings
-                           #'(lambda (l r)
-                               (car (compare-keybindings l r))))))
+                           (lambda (l r)
+                             (car (compare-keybindings l r))))))
         
         (if (not (eq (cdar last-binding) (cdar binding)))
             (princ (format "\n\n%s\n%s\n\n"

diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el
index 57a80824fccf4b540d1012dc68b74f5bdaf54183..3c0a7033af0546d077e1a0b51cc42f09967250b0 100644 (file)
--- a/lisp/use-package/use-package.el
+++ b/lisp/use-package/use-package.el
@@ -393,43 +393,43 @@ For full documentation. please see commentary.
                      (setq init-body
                            `(progn
                               ,init-body
-                              ,@(mapcar #'(lambda (elem)
-                                            (push (cdr elem) commands)
-                                            (funcall func elem))
+                              ,@(mapcar (lambda (elem)
+                                          (push (cdr elem) commands)
+                                          (funcall func elem))
                                         cons-list))))))))
 
         (funcall init-for-commands
-                 #'(lambda (binding)
-                     `(bind-key ,(car binding)
-                                (quote ,(cdr binding))))
+                 (lambda (binding)
+                   `(bind-key ,(car binding)
+                              (quote ,(cdr binding))))
                  keybindings-alist)
 
         (funcall init-for-commands
-                 #'(lambda (binding)
-                     `(bind-key* ,(car binding)
-                                 (quote ,(cdr binding))))
+                 (lambda (binding)
+                   `(bind-key* ,(car binding)
+                               (quote ,(cdr binding))))
                  overriding-keybindings-alist)
 
         (funcall init-for-commands
-                 #'(lambda (mode)
-                     `(add-to-list 'auto-mode-alist
-                                   (quote ,mode)))
+                 (lambda (mode)
+                   `(add-to-list 'auto-mode-alist
+                                 (quote ,mode)))
                  mode-alist)
 
         (funcall init-for-commands
-                 #'(lambda (interpreter)
-                     `(add-to-list 'interpreter-mode-alist
-                                   (quote ,interpreter)))
+                 (lambda (interpreter)
+                   `(add-to-list 'interpreter-mode-alist
+                                 (quote ,interpreter)))
                  interpreter-alist))
 
       `(progn
          ,pre-load-body
          ,@(mapcar
-            #'(lambda (path)
-                `(add-to-list 'load-path
-                              ,(if (file-name-absolute-p path)
-                                   path
-                                 (expand-file-name path user-emacs-directory))))
+            (lambda (path)
+              `(add-to-list 'load-path
+                            ,(if (file-name-absolute-p path)
+                                 path
+                               (expand-file-name path user-emacs-directory))))
             (cond ((stringp pkg-load-path)
                    (list pkg-load-path))
                   ((functionp pkg-load-path)
@@ -449,11 +449,11 @@ For full documentation. please see commentary.
          ,(if (and (or commands (use-package-plist-get args :defer))
                    (not (use-package-plist-get args :demand)))
               (let (form)
-                (mapc #'(lambda (command)
-                          (push `(unless (fboundp (quote ,command))
-                                   (autoload (function ,command)
-                                     ,name-string nil t))
-                                form))
+                (mapc (lambda (command)
+                   (push `(unless (fboundp (quote ,command))
+                            (autoload (function ,command)
+                              ,name-string nil t))
+                         form))
                       commands)
 
                 `(when ,(or predicate t)