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

Don't remove sharp quotes

Browse source
This commit is contained in:
Alex Branham 2018-01-27 15:17:26 -06:00
parent 2274130b40
commit 109167e8f5
1 changed files with 21 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

42
lisp/use-package/use-package-ensure.el
View file

@ -78,13 +78,13 @@ The default value uses package.el to install the package."
(defun use-package-normalize/:pin (_name keyword args) (defun use-package-normalize/:pin (_name keyword args)
(use-package-only-one (symbol-name keyword) args (use-package-only-one (symbol-name keyword) args
(lambda (_label arg) #'(lambda (_label arg)
(cond (cond
((stringp arg) arg) ((stringp arg) arg)
((use-package-non-nil-symbolp arg) (symbol-name arg)) ((use-package-non-nil-symbolp arg) (symbol-name arg))
(t (t
(use-package-error (use-package-error
":pin wants an archive name (a string)")))))) ":pin wants an archive name (a string)"))))))
(eval-when-compile (eval-when-compile
(defvar package-pinned-packages) (defvar package-pinned-packages)
@ -137,20 +137,20 @@ manually updated package."
(if (null args) (if (null args)
(list t) (list t)
(use-package-only-one (symbol-name keyword) args (use-package-only-one (symbol-name keyword) args
(lambda (_label arg) #'(lambda (_label arg)
(cond (cond
((symbolp arg) ((symbolp arg)
(list arg)) (list arg))
((and (listp arg) (= 3 (length arg)) ((and (listp arg) (= 3 (length arg))
(symbolp (nth 0 arg)) (symbolp (nth 0 arg))
(eq :pin (nth 1 arg)) (eq :pin (nth 1 arg))
(or (stringp (nth 2 arg)) (or (stringp (nth 2 arg))
(symbolp (nth 2 arg)))) (symbolp (nth 2 arg))))
(list (cons (nth 0 arg) (nth 2 arg)))) (list (cons (nth 0 arg) (nth 2 arg))))
(t (t
(use-package-error (use-package-error
(concat ":ensure wants an optional package name " (concat ":ensure wants an optional package name "
"(an unquoted symbol name), or (<symbol> :pin <string>)")))))))) "(an unquoted symbol name), or (<symbol> :pin <string>)"))))))))
(defun use-package-ensure-elpa (name args _state &optional _no-refresh) (defun use-package-ensure-elpa (name args _state &optional _no-refresh)
(dolist (ensure args) (dolist (ensure args)