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

Use add-to-list' defensively instead of push'

Browse source 
GitHub-reference: fixes https://github.com/jwiegley/use-package/issues/293
This commit is contained in:
John Wiegley 2016-02-25 17:13:02 -08:00
parent 6da4e0ce9d
commit ce51ea2055
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -597,7 +597,7 @@ manually updated package."
(let ((body (use-package-process-keywords name rest state)))
(use-package-concat
(mapcar #'(lambda (path)
`(eval-and-compile (push ,path load-path))) arg)
`(eval-and-compile (add-to-list 'load-path ,path))) arg)
body)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -785,7 +785,7 @@ deferred until the prefix key sequence is pressed."
(let* (commands
(form (mapcar #'(lambda (interpreter)
(push (cdr interpreter) commands)
`(push ',interpreter interpreter-mode-alist)) arg)))
`(add-to-list 'interpreter-mode-alist ',interpreter)) arg)))
(use-package-concat
(use-package-process-keywords name
(use-package-sort-keywords
@ -804,7 +804,7 @@ deferred until the prefix key sequence is pressed."
(let* (commands
(form (mapcar #'(lambda (mode)
(push (cdr mode) commands)
`(push ',mode auto-mode-alist)) arg)))
`(add-to-list 'auto-mode-alist ',mode)) arg)))
(use-package-concat
(use-package-process-keywords name
(use-package-sort-keywords