[Emacs-diffs] /srv/bzr/emacs/trunk r110006: byte-compile-warning-prefix tweak

[Glenn Morris]

------------------------------------------------------------
revno: 110006
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2012-09-12 22:41:46 -0400
message:
  byte-compile-warning-prefix tweak
  
  * lisp/emacs-lisp/bytecomp.el (byte-compile-warning-prefix): If not
  compiling a file, try using load-file-name.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/bytecomp.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-09-13 02:29:05 +0000
+++ b/lisp/ChangeLog    2012-09-13 02:41:46 +0000
@@ -1,3 +1,8 @@
+2012-09-13  Glenn Morris  <address@hidden>
+
+       * emacs-lisp/bytecomp.el (byte-compile-warning-prefix):
+       If not compiling a file, try using load-file-name.
+
 2012-09-13  Stefan Monnier  <address@hidden>
 
        * emacs-lisp/edebug.el (edebug-outside-unread-command-events):

=== modified file 'lisp/emacs-lisp/bytecomp.el'
--- a/lisp/emacs-lisp/bytecomp.el       2012-08-14 18:23:10 +0000
+++ b/lisp/emacs-lisp/bytecomp.el       2012-09-13 02:41:46 +0000
@@ -1016,6 +1016,10 @@
                     ((bufferp byte-compile-current-file)
                      (format "Buffer %s:"
                              (buffer-name byte-compile-current-file)))
+                    ;; We might be simply loading a file that
+                    ;; contains explicit calls to byte-compile functions.
+                    ((stringp load-file-name)
+                     (format "%s:" (file-relative-name load-file-name dir)))
                     (t "")))
         (pos (if (and byte-compile-current-file
                       (integerp byte-compile-read-position))