masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 11:49:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Use push instead of add-to-list

Browse source
This commit is contained in:
John Wiegley 2015-03-19 04:42:22 -05:00
parent 38f907cc5d
commit 1b6605652c
1 changed files with 8 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -440,12 +440,12 @@ ARGS is a list of forms, so `((foo))' if only `foo' is being called."
(mapcar #'(lambda (mode) (mapcar #'(lambda (mode)
(push (cdr mode) commands) (push (cdr mode) commands)
`(add-to-list 'auto-mode-alist ',mode)) `(push ',mode auto-mode-alist))
(plist-get args :mode)) (plist-get args :mode))
(mapcar #'(lambda (interpreter) (mapcar #'(lambda (interpreter)
(push (cdr interpreter) commands) (push (cdr interpreter) commands)
`(add-to-list 'interpreter-mode-alist ',interpreter)) `(push ',interpreter interpreter-mode-alist))
(plist-get args :interpreter)) (plist-get args :interpreter))
(mapcar #'(lambda (binding) (mapcar #'(lambda (binding)
@ -502,7 +502,7 @@ ARGS is a list of forms, so `((foo))' if only `foo' is being called."
(use-package-cat-maybes (use-package-cat-maybes
;; Setup the load-path ;; Setup the load-path
(mapcar #'(lambda (path) (mapcar #'(lambda (path)
`(eval-and-compile (add-to-list 'load-path ,path))) `(eval-and-compile (push ,path load-path)))
(plist-get args :load-path)) (plist-get args :load-path))
pre-compile-load pre-compile-load
@ -631,8 +631,8 @@ this file. Usage:
((body (use-package-cat-maybes ((body (use-package-cat-maybes
(use--package name name-symbol name-string args*) (use--package name name-symbol name-string args*)
(when archive-name (when archive-name
`((add-to-list 'package-pinned-packages `((push '(,name-symbol . ,archive-name)
'(,name-symbol . ,archive-name)))))) package-pinned-packages)))))
(pred (plist-get args* :if)) (pred (plist-get args* :if))
(expansion (if pred (expansion (if pred
`((when ,pred ,@body)) `((when ,pred ,@body))
@ -700,8 +700,7 @@ deferred until the prefix key sequence is pressed."
(let ((archive-symbol (if (symbolp archive) archive (intern archive))) (let ((archive-symbol (if (symbolp archive) archive (intern archive)))
(archive-name (if (stringp archive) archive (symbol-name archive)))) (archive-name (if (stringp archive) archive (symbol-name archive))))
(if (use-package--archive-exists-p archive-symbol) (if (use-package--archive-exists-p archive-symbol)
(add-to-list 'package-pinned-packages (push (cons package archive-name) package-pinned-packages)
(cons package archive-name))
(error "Archive '%s' requested for package '%s' is not available." (error "Archive '%s' requested for package '%s' is not available."
archive-name package)) archive-name package))
(package-initialize t))) (package-initialize t)))