Commit a61f59b4 authored by Joseph Arceneaux's avatar Joseph Arceneaux
Browse files

*** empty log message ***

parent 1b7d8239
...@@ -290,7 +290,8 @@ If the current buffer now contains an empty file that you just visited ...@@ -290,7 +290,8 @@ If the current buffer now contains an empty file that you just visited
(and file (and file
(setq file-name (file-name-nondirectory file) (setq file-name (file-name-nondirectory file)
file-dir (file-name-directory file))) file-dir (file-name-directory file)))
(list (read-file-name "Find alternate file: " file-dir nil nil file-name)))) (list (read-file-name
"Find alternate file: " file-dir nil nil file-name))))
(and (buffer-modified-p) (and (buffer-modified-p)
;; (not buffer-read-only) ;; (not buffer-read-only)
(not (yes-or-no-p (format "Buffer %s is modified; kill anyway? " (not (yes-or-no-p (format "Buffer %s is modified; kill anyway? "
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment