[Emacs-diffs] Changes to emacs/lisp/files.el

[Richard M. Stallman]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.602 emacs/lisp/files.el:1.603
*** emacs/lisp/files.el:1.602   Fri Aug 23 22:57:31 2002
--- emacs/lisp/files.el Tue Aug 27 16:37:00 2002
***************
*** 964,972 ****
        (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))))
  
  (defun create-file-buffer (filename)
    "Create a suitably named buffer for visiting FILENAME, and return it.
--- 964,973 ----
        (lock-buffer)
        (rename-buffer oname)))
      (unless (eq (current-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.