summaryrefslogtreecommitdiff
path: root/lisp/files.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1993-10-09 03:46:57 +0000
committerRichard M. Stallman <rms@gnu.org>1993-10-09 03:46:57 +0000
commit51de78c1872d43ddf8a7cbcb772358563ec15bfa (patch)
tree82fdac91cac00ae2bc79bbd3f7e319fd8733db67 /lisp/files.el
parent49e4a58a708bb23541188a5a5a3df4ec8509b457 (diff)
downloademacs-51de78c1872d43ddf8a7cbcb772358563ec15bfa.tar.gz
(hack-local-variables): If buffer has no file, display its buffer name.
Diffstat (limited to 'lisp/files.el')
-rw-r--r--lisp/files.el6
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el
index 92e0837157f..063377b5e49 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -972,7 +972,11 @@ If `enable-local-variables' is nil, this function does not check for a
(beginning-of-line)
(set-window-start (selected-window) (point)))
(y-or-n-p (format "Set local variables as specified at end of %s? "
- (file-name-nondirectory buffer-file-name))))))))
+ (if buffer-file-name
+ (file-name-nondirectory
+ buffer-file-name)
+ (concat "buffer "
+ (buffer-name))))))))))
(let ((continue t)
prefix prefixlen suffix beg
(enable-local-eval enable-local-eval))