[Emacs-diffs] emacs/lisp files.el

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       08/12/22 20:11:51

Modified files:
        lisp           : files.el 

Log message:
        (basic-save-buffer): Fix previous change.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/files.el?cvsroot=emacs&r1=1.1025&r2=1.1026

Patches:
Index: files.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/files.el,v
retrieving revision 1.1025
retrieving revision 1.1026
diff -u -b -r1.1025 -r1.1026
--- files.el    22 Dec 2008 19:48:08 -0000      1.1025
+++ files.el    22 Dec 2008 20:11:51 -0000      1.1026
@@ -4085,10 +4085,12 @@
     ;; If this buffer's real contents are "swapped" with some other buffer,
     ;; temporarily unswap in order to save the real contents.
     (unwind-protect
-       (progn
+       (let ((modp (buffer-modified-p)))
          (buffer-swap-text buffer-swapped-with)
+         (set-buffer-modified-p modp)
          (basic-save-buffer-0))
-      (buffer-swap-text buffer-swapped-with))))
+      (buffer-swap-text buffer-swapped-with)
+      (set-buffer-modified-p nil))))
 
 (defun basic-save-buffer-0 ()
   (save-current-buffer