Commit d97a9ff3 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(find-alternate-file): Bind kill-buffer-query-functions locally, don't set it.

parent 92c30310
2002-08-27 Richard M. Stallman <rms@gnu.org>
* files.el (find-alternate-file):
Bind kill-buffer-query-functions locally, don't set it.
2002-08-27 Andreas Schwab <schwab@suse.de>
* kmacro.el (kmacro-start-macro): Doc fix.
......
......@@ -964,9 +964,10 @@ If the current buffer now contains an empty file that you just visited
(lock-buffer)
(rename-buffer oname)))
(unless (eq (current-buffer) obuf)
;; We already asked; don't ask again.
(setq kill-buffer-query-functions nil)
(kill-buffer obuf))))
(with-current-buffer obuf
;; We already asked; don't ask again.
(let ((kill-buffer-query-functions))
(kill-buffer obuf))))))
(defun create-file-buffer (filename)
"Create a suitably named buffer for visiting FILENAME, and return it.
......
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