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

Merge pull request from npostavs/warning

Browse source 
use-package-expand: use display-warning
GitHub-reference: https://github.com/jwiegley/use-package/issues/162
This commit is contained in:
John Wiegley 2015-03-15 02:47:42 -04:00
commit 9748de389c
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -282,9 +282,12 @@ then the expanded macros do their job silently."
(defsubst use-package-expand (name label form) (defsubst use-package-expand (name label form)
(declare (indent 1)) (declare (indent 1))
(and form (and form
`(with-demoted-errors (let ((err (make-symbol "err"))
,(format "Failure in %s of %s: %%S" label name) (fmt (format "Failure in %s of %s: %%S" label name)))
,form))) `(condition-case-unless-debug ,err
,form
(error (display-warning 'use-package (format ,fmt ,err) :error)
nil)))))
(defun use--package (name-symbol name-string args) (defun use--package (name-symbol name-string args)
"See docstring for `use-package'." "See docstring for `use-package'."