aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1993-10-09 03:46:57 +0000
committerRichard M. Stallman1993-10-09 03:46:57 +0000
commit51de78c1872d43ddf8a7cbcb772358563ec15bfa (patch)
tree82fdac91cac00ae2bc79bbd3f7e319fd8733db67
parent49e4a58a708bb23541188a5a5a3df4ec8509b457 (diff)
downloademacs-51de78c1872d43ddf8a7cbcb772358563ec15bfa.tar.gz
emacs-51de78c1872d43ddf8a7cbcb772358563ec15bfa.zip
(hack-local-variables): If buffer has no file, display its buffer name.
-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
972 (beginning-of-line) 972 (beginning-of-line)
973 (set-window-start (selected-window) (point))) 973 (set-window-start (selected-window) (point)))
974 (y-or-n-p (format "Set local variables as specified at end of %s? " 974 (y-or-n-p (format "Set local variables as specified at end of %s? "
975 (file-name-nondirectory buffer-file-name)))))))) 975 (if buffer-file-name
976 (file-name-nondirectory
977 buffer-file-name)
978 (concat "buffer "
979 (buffer-name))))))))))
976 (let ((continue t) 980 (let ((continue t)
977 prefix prefixlen suffix beg 981 prefix prefixlen suffix beg
978 (enable-local-eval enable-local-eval)) 982 (enable-local-eval enable-local-eval))