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

Corrections to the normalization of :custom

Browse source
This commit is contained in:
John Wiegley 2017-11-28 11:03:47 -08:00
parent 903ff82219
commit c72d8567d2
1 changed files with 14 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1411,23 +1411,20 @@ deferred until the prefix key sequence is pressed."
;;; :custom
;;
(defun use-package-normalize/:custom (name-symbol keyword arg)
(defun use-package-normalize/:custom (name-symbol keyword args)
"Normalize use-package custom keyword."
(let ((error-msg (format "%s wants a (<symbol> <form> <optional string comment>) or list of these" name-symbol)))
(unless (listp arg)
(use-package-error error-msg))
(dolist (def arg arg)
(unless (listp def)
(use-package-error error-msg))
(let ((variable (nth 0 def))
(value (nth 1 def))
(comment (nth 2 def)))
(when (or (not variable)
(and (not value)
(not (eq value nil)))
(> (length def) 3)
(and comment (not (stringp comment))))
(use-package-error error-msg))))))
(cond
((and (= (length args) 1)
(listp (car args))
(listp (car (car args))))
(car args))
((and (= (length args) 1)
(listp (car args)))
args)
(t
(use-package-error
(concat label " a (<symbol> <value> [comment])"
" or list of these")))))
(defun use-package-handler/:custom (name keyword args rest state)
"Generate use-package custom keyword code."
@ -1437,7 +1434,7 @@ deferred until the prefix key sequence is pressed."
(let ((variable (nth 0 def))
(value (nth 1 def))
(comment (nth 2 def)))
(unless comment
(unless (and comment (stringp comment))
(setq comment (format "Customized with use-package %s" name)))
`(customize-set-variable (quote ,variable) ,value ,comment)))
args)