* packages/vlf: Version 1.3.

[gnu-emacs-elpa] / packages / vlf / vlf-write.el

diff --git a/packages/vlf/vlf-write.el b/packages/vlf/vlf-write.el
index 9e45b9c3266dd1e4c9933faaeee57730c6de131c..7e9d069477bb3ea9174d933efd971b9e0a813000 100644 (file)
--- a/packages/vlf/vlf-write.el
+++ b/packages/vlf/vlf-write.el
@@ -27,6 +27,8 @@
 
 ;;; Code:
 
+(require 'vlf-base)
+
 (defun vlf-write ()
   "Write current chunk to file.  Always return true to disable save.
 If changing size of chunk, shift remaining file content."
@@ -42,6 +44,7 @@ Save anyway? "))
                                   buffer-file-truename)
                    vlf-end-pos vlf-file-size)
              (vlf-update-buffer-name))
+         (widen)
          (let* ((region-length (length (encode-coding-region
                                         (point-min) (point-max)
                                         buffer-file-coding-system t)))
@@ -52,8 +55,7 @@ Save anyway? "))
              (let ((pos (point)))
                (if (< 0 size-change)
                    (vlf-file-shift-back size-change)
-                 (vlf-file-shift-forward (- size-change))
-                 (vlf-verify-size))
+                 (vlf-file-shift-forward (- size-change)))
                (vlf-move-to-chunk-2 vlf-start-pos
                                     (if (< (- vlf-end-pos vlf-start-pos)
                                            vlf-batch-size)
@@ -78,7 +80,7 @@ Save anyway? "))
        (progress-reporter-update reporter read-start-pos))
      ;; pad end with space
      (erase-buffer)
-     (vlf-verify-size)
+     (vlf-verify-size t)
      (insert-char 32 size-change))
     (write-region nil nil buffer-file-name (- vlf-file-size
                                               size-change) t)
@@ -88,7 +90,7 @@ Save anyway? "))
   "Read `vlf-batch-size' bytes from READ-POS and write them \
 back at WRITE-POS.  Return nil if EOF is reached, t otherwise."
   (erase-buffer)
-  (vlf-verify-size)
+  (vlf-verify-size t)
   (let ((read-end (+ read-pos vlf-batch-size)))
     (insert-file-contents-literally buffer-file-name nil
                                     read-pos
@@ -122,7 +124,7 @@ Done by saving content up front and then writing previous batch."
 Then write initial buffer content to file at WRITE-POS.
 If HIDE-READ is non nil, temporarily hide literal read content.
 Return nil if EOF is reached, t otherwise."
-  (vlf-verify-size)
+  (vlf-verify-size t)
   (let ((read-more (< read-pos vlf-file-size))
         (start-write-pos (point-min))
         (end-write-pos (point-max)))