[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r110006: byte-compile-warning-prefix
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r110006: byte-compile-warning-prefix tweak |
Date: |
Wed, 12 Sep 2012 22:41:46 -0400 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r110006: byte-compile-warning-prefix tweak,
Glenn Morris <=