Mercurial > emacs
changeset 100798:68359e11ef36
(basic-save-buffer): Revert 2008-12-22 change.
(buffer-swapped-with): Var removed.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Wed, 31 Dec 2008 02:13:31 +0000 |
| parents | eb6960192724 |
| children | 1035b9c820e8 |
| files | lisp/files.el |
| diffstat | 1 files changed, 0 insertions(+), 20 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Wed Dec 31 02:13:04 2008 +0000 +++ b/lisp/files.el Wed Dec 31 02:13:31 2008 +0000 @@ -4072,13 +4072,6 @@ (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 @@ 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)