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

Make a warning more specific

Browse source
This commit is contained in:
John Wiegley 2015-03-18 03:25:21 -05:00
parent 5787ff074c
commit 658d103b70
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -126,7 +126,9 @@ possible."
,(use-package-progn form) ,(use-package-progn form)
(error (error
(ignore (ignore
(display-warning 'use-package (error-message-string ,err) (display-warning 'use-package
(format "use-package: Error in %s: %s" ,name
(error-message-string ,err))
:error))))))))) :error)))))))))
(put 'use-package-expand 'lisp-indent-function 'defun) (put 'use-package-expand 'lisp-indent-function 'defun)
@ -431,12 +433,12 @@ ARGS is a list of forms, so `((foo))' if only `foo' is being called."
(when (bound-and-true-p byte-compile-current-file) (when (bound-and-true-p byte-compile-current-file)
`((eval-when-compile `((eval-when-compile
,@(mapcar #'(lambda (var) `(defvar ,var)) ,@(mapcar #'(lambda (var) `(defvar ,var))
(plist-get args* :defines)) (plist-get args :defines))
(with-demoted-errors (with-demoted-errors
,(format "Error in %s: %%S" name-string) ,(format "Error in %s: %%S" name-string)
,(if use-package-verbose ,(if use-package-verbose
`(message "Compiling package %s" ,name-string)) `(message "Compiling package %s" ,name-string))
,(unless (plist-get args* :no-require) ,(unless (plist-get args :no-require)
`(require ',name-symbol nil t))))))) `(require ',name-symbol nil t)))))))
;; These are all the configurations to be made after the package has ;; These are all the configurations to be made after the package has