Handle :unless correctly

GitHub-reference: fixes https://github.com/jwiegley/use-package/issues/197
This commit is contained in:
John Wiegley 2016-02-25 15:08:32 -08:00
parent 543935482f
commit c65a334276

View file

@ -503,10 +503,7 @@ manually updated package."
(defalias 'use-package-normalize/:if 'use-package-normalize-test) (defalias 'use-package-normalize/:if 'use-package-normalize-test)
(defalias 'use-package-normalize/:when 'use-package-normalize-test) (defalias 'use-package-normalize/:when 'use-package-normalize-test)
(defalias 'use-package-normalize/:unless 'use-package-normalize-test)
(defun use-package-normalize/:unless (name keyword args)
(not (use-package-only-one (symbol-name keyword) args
#'use-package-normalize-value)))
(defun use-package-handler/:if (name keyword pred rest state) (defun use-package-handler/:if (name keyword pred rest state)
(let ((body (use-package-process-keywords name rest state))) (let ((body (use-package-process-keywords name rest state)))