Report buffer-name when local mode-line is invalid

* lisp/files.el (hack-local-variables-prop-line): Add '(buffer-name)'
to the message reporting the malformed mode-line.

diff --git a/lisp/files.el b/lisp/files.el
index eca8cba93f2099639a1f6803b2af6a06b53c0021..a0bc5bf26267caa323b06a8d49427ab46c11d300 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -3741,8 +3741,8 @@ return as the symbol specifying the mode."
               (while (not (or (and (eq handle-mode t) result)
                                (>= (point) end)))
                 (unless (looking-at hack-local-variable-regexp)
-                  (message "Malformed mode-line: %S"
-                            (buffer-substring-no-properties (point) end))
+                  (message "Malformed mode-line: %S in buffer %S"
+                            (buffer-substring-no-properties (point) end) (buffer-name))
                   (throw 'malformed-line nil))
                 (goto-char (match-end 0))
                 ;; There used to be a downcase here,