1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-10 15:56:18 +00:00

macroexp--warn-and-return message tweak (bug#13132)

* lisp/emacs-lisp/macroexp.el (macroexp--warn-and-return):
Try to include filename in non-bytecomp warning.
This commit is contained in:
Glenn Morris 2012-12-14 16:27:39 -05:00
parent cccaebd24d
commit a5f7444219
2 changed files with 9 additions and 1 deletions

View File

@ -1,3 +1,8 @@
2012-12-14 Glenn Morris <rgm@gnu.org>
* emacs-lisp/macroexp.el (macroexp--warn-and-return):
Try to include filename in non-bytecomp warning. (Bug#13132)
2012-12-14 Paul Eggert <eggert@cs.ucla.edu>
Fix permissions bugs with setgid directories etc. (Bug#13125)

View File

@ -124,7 +124,10 @@ and also to avoid outputting the warning during normal execution."
(macroexp--funcall-if-compiled ',when-compiled)
,form))
(t
(message "%s" msg)
(message "%s%s" (if (stringp load-file-name)
(concat (file-relative-name load-file-name) ": ")
"")
msg)
form))))
(defun macroexp--obsolete-warning (fun obsolescence-data type)