diff options
| author | Sean Allred <code@seanallred.com> | 2014-12-19 23:12:47 -0500 |
|---|---|---|
| committer | Sean Allred <code@seanallred.com> | 2014-12-19 23:12:47 -0500 |
| commit | 5a5aeca79736410462743f28d84dccde789efae3 (patch) | |
| tree | c8342a2f3ee69bd7073e4ccd8097d6a425951e14 | |
| parent | f8db1f1740ba235b256c4b6d9cdac1a0662472f6 (diff) | |
| download | emacs-5a5aeca797.tar.gz | |
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.
| -rw-r--r-- | lisp/use-package/bind-key.el | 4 | ||||
| -rw-r--r-- | lisp/use-package/use-package.el | 50 |
2 files changed, 27 insertions, 27 deletions
diff --git a/lisp/use-package/bind-key.el b/lisp/use-package/bind-key.el index e5f990ef0f2..2ac32365ecf 100644 --- 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 57a80824fcc..3c0a7033af0 100644 --- 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) |