mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 02:51:31 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
* 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
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/macroexp.el
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)