diff options
| author | Richard M. Stallman | 1993-10-09 03:46:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-10-09 03:46:57 +0000 |
| commit | 51de78c1872d43ddf8a7cbcb772358563ec15bfa (patch) | |
| tree | 82fdac91cac00ae2bc79bbd3f7e319fd8733db67 | |
| parent | 49e4a58a708bb23541188a5a5a3df4ec8509b457 (diff) | |
| download | emacs-51de78c1872d43ddf8a7cbcb772358563ec15bfa.tar.gz emacs-51de78c1872d43ddf8a7cbcb772358563ec15bfa.zip | |
(hack-local-variables): If buffer has no file, display its buffer name.
| -rw-r--r-- | lisp/files.el | 6 |
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)) |