masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-04 19:29:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request from dudebout/fixes-

Browse source 
Removes `plist-get-sexp`
GitHub-reference: https://github.com/jwiegley/use-package/issues/55
GitHub-reference: https://github.com/jwiegley/use-package/issues/54
This commit is contained in:
John Wiegley 2013-09-25 11:11:47 -07:00
commit 9c9329f522
1 changed files with 4 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -438,12 +438,6 @@ Return the list of recognized keywords."
(error "Unrecognized keyword: %s" keyword))))
(plist-keys args)))
(defun plist-get-sexp (plist prop)
(let ((sexp-or-function (plist-get plist prop)))
(if (functionp sexp-or-function)
(funcall sexp-or-function)
sexp-or-function)))
(defun plist-get-value (plist prop)
(let ((value-or-symbol (plist-get plist prop)))
(if (symbolp value-or-symbol)
@ -476,12 +470,12 @@ For full documentation. please see commentary.
:ensure loads package using package.el if necessary."
(use-package-validate-keywords args) ; error if any bad keyword, ignore result
(let* ((commands (plist-get args :commands))
(pre-init-body (plist-get-sexp args :pre-init))
(init-body (plist-get-sexp args :init))
(config-body (plist-get-sexp args :config))
(pre-init-body (plist-get args :pre-init))
(init-body (plist-get args :init))
(config-body (plist-get args :config))
(diminish-var (plist-get args :diminish))
(defines (plist-get args :defines))
(idle-body (plist-get-sexp args :idle))
(idle-body (plist-get args :idle))
(keybindings-alist (plist-get-value args :bind))
(mode-alist (plist-get-value args :mode))
(interpreter-alist (plist-get-value args :interpreter))