* 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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6a395dcb2ab60dcaffcc91a344c7123a84d91c1e..b3e2660c5e41ac176ceeb330935e3d0aa1d69287 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,12 @@
 2008-05-28  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * 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.
+
        * doc-view.el (doc-view-mode-map): Bind `q' to quit-window, as is
        the custom.
 

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 8070e95a671597205512cdc432bf5f5524f829f1..1f54b32cc06c79b62901d1bf7e30abe4e8de70da 100644 (file)
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -1171,7 +1171,7 @@ using `make-temp-file', and the generated name is returned."
          ;; the dired-like listing we created.
          (if (eq major-mode 'archive-mode)
              (archive-write-file tmpfile)
-           (write-region (point-min) (point-max) tmpfile nil 'nomessage))
+           (write-region nil nil tmpfile nil 'nomessage))
          ;; basic-save-buffer needs last-coding-system-used to have
          ;; the value used to write the file, so save it before any
          ;; further processing clobbers it (we restore it in

diff --git a/lisp/ediff-util.el b/lisp/ediff-util.el
index 2622d461bf5eee34fad922ce70e5728b6d2a8889..9aef531b39abbfb13072b313b51d6473b2ecd59b 100644 (file)
--- a/lisp/ediff-util.el
+++ b/lisp/ediff-util.el
@@ -2715,7 +2715,7 @@ only if this merge job is part of a group, i.e., was invoked from within
       (if (or (not (file-exists-p file))
              (y-or-n-p (format "File %s exists, overwrite? " file)))
          (progn
-           ;;(write-region (point-min) (point-max) file)
+           ;;(write-region nil nil file)
            (ediff-with-current-buffer buf
              (set-visited-file-name file)
              (save-buffer))

diff --git a/lisp/files.el b/lisp/files.el
index 14752752b79bc6b82fa0cf03a9495a7cfa431459..0fcbcb2a39777994370ae28a73975819a6415031 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -4145,9 +4145,8 @@ This requires the external program `diff' to be in your `exec-path'."
             (file-exists-p buffer-file-name))
        (let ((tempfile (make-temp-file "buffer-content-")))
          (unwind-protect
-             (save-restriction
-               (widen)
-               (write-region (point-min) (point-max) tempfile nil 'nomessage)
+             (progn
+               (write-region nil nil tempfile nil 'nomessage)
                (diff buffer-file-name tempfile nil t)
                (sit-for 0))
            (when (file-exists-p tempfile)

diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index ada7606fc44447e64447c9a58ee2e2312ab40be2..a5792ed25b5c7177723bac792e539fa435c793a2 100644 (file)
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -257,16 +257,12 @@ There should be no more than seven characters after the final `/'."
         (info (jka-compr-get-compression-info visit-file))
         (magic (and info (jka-compr-info-file-magic-bytes info))))
 
-    ;; If START is nil, use the whole buffer.
-    (if (null start)
-       (setq start 1 end (1+ (buffer-size))))
-
     ;; If we uncompressed this file when visiting it,
     ;; then recompress it when writing it
     ;; even if the contents look compressed already.
     (if (and jka-compr-really-do-compress
-            (eq start 1)
-            (eq end (1+ (buffer-size))))
+             (or (null start)
+                 (= (- end start) (buffer-size))))
        (setq magic nil))
 
     (if (and info
@@ -277,9 +273,10 @@ There should be no more than seven characters after the final `/'."
                       (equal (if (stringp start)
                                  (substring start 0 (min (length start)
                                                          (length magic)))
-                               (buffer-substring start
-                                                 (min end
-                                                      (+ start (length magic)))))
+                                (let ((from (or start (point-min)))
+                                      (to (min (or end (point-max))
+                                               (+ from (length magic)))))
+                                  (buffer-substring from to)))
                              magic))))
        (let ((can-append (jka-compr-info-can-append info))
              (compress-program (jka-compr-info-compress-program info))

diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index 5412e2b3be5e2c4c136e1ad3edbe7dbfeb3e1b56..c6c58ef76dc15a812befc065db6429a5b43c3b5b 100644 (file)
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -562,10 +562,8 @@ Find master file, patch and save it."
        nil))))
 
 (defun flymake-save-buffer-in-file (file-name)
-  (save-restriction
-    (widen)
-    (make-directory (file-name-directory file-name) 1)
-    (write-region (point-min) (point-max) file-name nil 566))
+  (make-directory (file-name-directory file-name) 1)
+  (write-region nil nil file-name nil 566)
   (flymake-log 3 "saved buffer %s in file %s" (buffer-name) file-name))
 
 (defun flymake-save-string-to-file (file-name data)

diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el
index 29eb04e7c320bf07917a4afa49d790130023c4fc..5481bbaf2b0cbd52ba382520f166ae6b1cf3f639 100644 (file)
--- 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.

diff --git a/lisp/subr.el b/lisp/subr.el
index 8264055651a593dc8b98e790c4187869322a67f9..10edc54050145fbbdafa5b432a9ad06963fb80ef 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2562,8 +2562,7 @@ See also `with-temp-buffer'."
               (with-current-buffer ,temp-buffer
                 ,@body)
             (with-current-buffer ,temp-buffer
-              (widen)
-              (write-region (point-min) (point-max) ,temp-file nil 0)))
+              (write-region nil nil ,temp-file nil 0)))
         (and (buffer-name ,temp-buffer)
              (kill-buffer ,temp-buffer))))))