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

[Chong Yidong]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      07/01/20 19:00:10

Index: files.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/files.el,v
retrieving revision 1.877
retrieving revision 1.878
diff -u -b -r1.877 -r1.878
--- files.el    6 Jan 2007 21:50:14 -0000       1.877
+++ files.el    20 Jan 2007 19:00:10 -0000      1.878
@@ -1223,11 +1223,11 @@
   (unless (run-hook-with-args-until-failure 'kill-buffer-query-functions)
     (error "Aborted"))
   (when (and (buffer-modified-p) (buffer-file-name))
-    (if (yes-or-no-p (format "Buffer %s is modified; save it first? "
+    (if (yes-or-no-p (format "Buffer %s is modified; kill anyway? "
                             (buffer-name)))
-       (save-buffer)
       (unless (yes-or-no-p "Kill and replace the buffer without saving it? ")
-       (error "Aborted"))))
+         (error "Aborted"))
+      (save-buffer)))
   (let ((obuf (current-buffer))
        (ofile buffer-file-name)
        (onum buffer-file-number)