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

use plist-get-value for all non-sexp args

Browse source
This commit is contained in:
Noam Postavsky 2013-09-25 22:29:59 -04:00
parent dd20db220d
commit 8c1c572857
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -471,20 +471,20 @@ For full documentation. please see commentary.
(pre-init-body (plist-get args :pre-init)) (pre-init-body (plist-get args :pre-init))
(init-body (plist-get args :init)) (init-body (plist-get args :init))
(config-body (plist-get args :config)) (config-body (plist-get args :config))
(diminish-var (plist-get args :diminish)) (diminish-var (plist-get-value args :diminish))
(defines (plist-get args :defines)) (defines (plist-get-value args :defines))
(idle-body (plist-get args :idle)) (idle-body (plist-get args :idle))
(keybindings-alist (plist-get-value args :bind)) (keybindings-alist (plist-get-value args :bind))
(mode-alist (plist-get-value args :mode)) (mode-alist (plist-get-value args :mode))
(interpreter-alist (plist-get-value args :interpreter)) (interpreter-alist (plist-get-value args :interpreter))
(predicate (plist-get args :if)) (predicate (plist-get args :if))
(pkg-load-path (plist-get args :load-path)) (pkg-load-path (plist-get-value args :load-path))
(defines-eval (if (null defines) (defines-eval (if (null defines)
nil nil
(if (listp defines) (if (listp defines)
(mapcar (lambda (var) `(defvar ,var)) defines) (mapcar (lambda (var) `(defvar ,var)) defines)
`((defvar ,defines))))) `((defvar ,defines)))))
(requires (plist-get args :requires)) (requires (plist-get-value args :requires))
(requires-test (if (null requires) (requires-test (if (null requires)
t t
(if (listp requires) (if (listp requires)