Commit 348a60a8 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(shadow-copy-file): Handle buffer-swapped-with.

parent caba192e
2008-12-22 Richard M Stallman <rms@gnu.org>
 
* shadowfile.el (shadow-copy-file): Handle buffer-swapped-with.
* files.el (buffer-swapped-with): New variable.
(basic-save-buffer-0): Most of basic-save-buffer moved here.
(basic-save-buffer): Unswap the buffer temporarily if nec.
* dired.el (dired-readin): Inhibit modification hooks.
 
2008-12-22 Ulf Jasper <ulf.jasper@web.de>
......
......@@ -574,8 +574,14 @@ site."
(when buffer
(set-buffer buffer)
(condition-case i
(progn
(write-region nil nil to)
(progn
(if buffer-swapped-with
(progn
(buffer-swap-text buffer-swapped-with)
(unwind-protect
(write-region nil nil to)
(buffer-swap-text buffer-swapped-with)))
(write-region nil nil to))
(shadow-remove-from-todo s))
(error (message "Shadow %s not updated!" (cdr s)))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment