summaryrefslogtreecommitdiff
path: root/lisp/shadowfile.el
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2008-05-28 17:35:34 +0000
committerStefan Monnier <monnier@iro.umontreal.ca>2008-05-28 17:35:34 +0000
commitab1d38354db0b8c9028347f4c532d546f3d928d8 (patch)
treedf884efd8aac4c0eb14d30f8e79db80039f4125d /lisp/shadowfile.el
parenta6e0b7e57248adf3ce9615f8de08dac2ff46f6ee (diff)
downloademacs-ab1d38354db0b8c9028347f4c532d546f3d928d8.tar.gz
* progmodes/flymake.el (flymake-save-buffer-in-file):
* shadowfile.el (shadow-copy-file): * arc-mode.el (archive-*-write-file-member): * files.el (diff-buffer-with-file): * subr.el (with-temp-file): Pass nil to write-region. * jka-compr.el (jka-compr-write-region): Preserve `start's nullness.
Diffstat (limited to 'lisp/shadowfile.el')
-rw-r--r--lisp/shadowfile.el12
1 files changed, 5 insertions, 7 deletions
diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el
index 29eb04e7c32..5481bbaf2b0 100644
--- a/lisp/shadowfile.el
+++ b/lisp/shadowfile.el
@@ -573,13 +573,11 @@ site."
(to (shadow-expand-cluster-in-file-name (cdr s))))
(when buffer
(set-buffer buffer)
- (save-restriction
- (widen)
- (condition-case i
- (progn
- (write-region (point-min) (point-max) to)
- (shadow-remove-from-todo s))
- (error (message "Shadow %s not updated!" (cdr s))))))))
+ (condition-case i
+ (progn
+ (write-region nil nil to)
+ (shadow-remove-from-todo s))
+ (error (message "Shadow %s not updated!" (cdr s)))))))
(defun shadow-shadows-of (file)
"Return copy operations needed to update FILE.