From ce51ea2055cc5c713f52342ceac79bc36631c8fe Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Thu, 25 Feb 2016 17:13:02 -0800 Subject: [PATCH] Use `add-to-list' defensively instead of `push' GitHub-reference: fixes https://github.com/jwiegley/use-package/issues/293 --- lisp/use-package/use-package.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el index 45ef410be88..619c6c3b3f3 100644 --- a/lisp/use-package/use-package.el +++ b/lisp/use-package/use-package.el @@ -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 -- 2.39.2