emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] trunk r116649: * lisp/files.el (hack-local-variables): Men


From: Stefan Monnier
Subject: [Emacs-diffs] trunk r116649: * lisp/files.el (hack-local-variables): Mention file name in warning.
Date: Tue, 04 Mar 2014 03:26:25 +0000
User-agent: Bazaar (2.6b2)

------------------------------------------------------------
revno: 116649
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2014-03-03 22:26:17 -0500
message:
  * lisp/files.el (hack-local-variables): Mention file name in warning.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/files.el                  files.el-20091113204419-o5vbwnq5f7feedwu-265
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-03-04 03:18:55 +0000
+++ b/lisp/ChangeLog    2014-03-04 03:26:17 +0000
@@ -1,5 +1,7 @@
 2014-03-04  Stefan Monnier  <address@hidden>
 
+       * files.el (hack-local-variables): Mention file name in warning.
+
        * htmlfontify.el (hfy-fontify-buffer): Drop `invis-range' message.
 
 2014-03-04  Michal Nazarewicz  <address@hidden>

=== modified file 'lisp/files.el'
--- a/lisp/files.el     2014-02-10 06:07:30 +0000
+++ b/lisp/files.el     2014-03-04 03:26:17 +0000
@@ -3340,8 +3340,11 @@
                              ((eq var 'lexical-binding)
                               (unless hack-local-variables--warned-lexical
                                 (setq hack-local-variables--warned-lexical t)
-                                (display-warning :warning
-                                                 "Specify `lexical-binding' on 
the first line, not at the end")))
+                                (display-warning
+                                  :warning
+                                  (format "%s: `lexical-binding' at end of 
file unreliable"
+                                          (file-name-nondirectory
+                                           (or buffer-file-name ""))))))
                              (t
                               (ignore-errors
                                 (push (cons (if (eq var 'eval)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]