mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Do not quote lambda expressions

Browse source 
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.
This commit is contained in:
Sean Allred 2014-12-19 23:12:47 -05:00
parent f8db1f1740
commit 5a5aeca797
2 changed files with 27 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/use-package/bind-key.el
View file

@ -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"

50
lisp/use-package/use-package.el
View file

@ -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)