[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp files.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] emacs/lisp files.el |
Date: |
Mon, 22 Dec 2008 20:11:51 +0000 |
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
- [Emacs-diffs] emacs/lisp files.el, Chong Yidong, 2008/12/02
- [Emacs-diffs] emacs/lisp files.el, Chong Yidong, 2008/12/09
- [Emacs-diffs] emacs/lisp files.el, Richard M. Stallman, 2008/12/22
- [Emacs-diffs] emacs/lisp files.el,
Richard M. Stallman <=
- [Emacs-diffs] emacs/lisp files.el, Eli Zaretskii, 2008/12/26
- [Emacs-diffs] emacs/lisp files.el, Eli Zaretskii, 2008/12/26
- [Emacs-diffs] emacs/lisp files.el, Chong Yidong, 2008/12/27
- [Emacs-diffs] emacs/lisp files.el, Chong Yidong, 2008/12/30