From: Chong Yidong <cyd@stupidchicken.com>
Date: Wed, 31 Dec 2008 02:13:31 +0000 (+0000)
Subject: (basic-save-buffer): Revert 2008-12-22 change.
X-Git-Tag: emacs-pretest-23.0.90~783
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f6fbae115cec54ffa26a10df5089610c018d1b10;p=emacs.git

(basic-save-buffer): Revert 2008-12-22 change.
(buffer-swapped-with): Var removed.
---

diff --git a/lisp/files.el b/lisp/files.el
index 1f1640e24ba..4983e0f4a7d 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -4072,13 +4072,6 @@ in such cases.")
 (make-variable-buffer-local 'save-buffer-coding-system)
 (put 'save-buffer-coding-system 'permanent-local t)
 
-(defvar buffer-swapped-with nil
-  "Buffer that this buffer's contents are temporarily swapped with.
-You should only set this variable in file-visiting buffers,
-because it only affects how to save the buffer in its file.")
-
-(make-variable-buffer-local 'buffer-swapped-with)
-
 (defun basic-save-buffer ()
   "Save the current buffer in its visited file, if it has been modified.
 The hooks `write-contents-functions' and `write-file-functions' get a chance
@@ -4087,19 +4080,6 @@ the visited file in the usual way.
 Before and after saving the buffer, this function runs
 `before-save-hook' and `after-save-hook', respectively."
   (interactive)
-  (if (not buffer-swapped-with)
-      (basic-save-buffer-0)
-    ;; If this buffer's real contents are "swapped" with some other buffer,
-    ;; temporarily unswap in order to save the real contents.
-    (unwind-protect
-	(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)
-      (set-buffer-modified-p nil))))
-
-(defun basic-save-buffer-0 ()
   (save-current-buffer
     ;; In an indirect buffer, save its base buffer instead.
     (if (buffer-base-buffer)