Mercurial > emacs

changeset 100644:a4a09df46d2f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(basic-save-buffer): Fix previous change.
author Richard M. Stallman <rms@gnu.org>
date Mon, 22 Dec 2008 20:11:51 +0000
parents e8e2008b93a7
children 4caea5d62b15
files lisp/files.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Mon Dec 22 19:58:55 2008 +0000
+++ b/lisp/files.el	Mon Dec 22 20:11:51 2008 +0000
@@ -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