[elpa] externals/vlf 88924f9 164/310: Fix vlf-write behaviour for newly created file.

[Stefan Monnier]

branch: externals/vlf
commit 88924f9c0526593581731d52208f1baf7b4f755d
Author: Andrey Kotlarski <m00naticus@gmail.com>
Commit: Andrey Kotlarski <m00naticus@gmail.com>

    Fix vlf-write behaviour for newly created file.
---
 vlf.el | 34 +++++++++++++++++++++++-----------
 1 file changed, 23 insertions(+), 11 deletions(-)

diff --git a/vlf.el b/vlf.el
index b55217b..9928d28 100644
--- a/vlf.el
+++ b/vlf.el
@@ -919,18 +919,30 @@ If changing size of chunk, shift remaining file content."
              (or (verify-visited-file-modtime (current-buffer))
                  (y-or-n-p "File has changed since visited or saved.  \
 Save anyway? ")))
-    (let ((pos (point))
-          (size-change (- vlf-end-pos vlf-start-pos
-                          (length (encode-coding-region
+    (let* ((pos (point))
+           (region-length (length (encode-coding-region
                                    (point-min) (point-max)
-                                   buffer-file-coding-system t)))))
-      (cond ((zerop size-change)
-             (write-region nil nil buffer-file-name vlf-start-pos t))
-            ((< 0 size-change)
-             (vlf-file-shift-back size-change))
-            (t (vlf-file-shift-forward (- size-change))))
-      (vlf-move-to-chunk-2 vlf-start-pos vlf-end-pos)
-      (goto-char pos)))
+                                   buffer-file-coding-system t)))
+           (size-change (- vlf-end-pos vlf-start-pos region-length)))
+      (if (or (zerop size-change) (zerop vlf-file-size))
+          (progn
+            (write-region nil nil buffer-file-name vlf-start-pos t)
+            (when (zerop vlf-file-size) ;new file
+              (setq vlf-file-size region-length
+                    vlf-end-pos region-length
+                    vlf-start-pos 1)
+              (vlf-update-buffer-name)))
+        (if (< 0 size-change)
+            (vlf-file-shift-back size-change)
+          (vlf-file-shift-forward (- size-change)))
+        (vlf-verify-size)
+        (vlf-move-to-chunk-2 vlf-start-pos
+                             (if (< (- vlf-end-pos vlf-start-pos)
+                                    vlf-batch-size)
+                                 (+ vlf-start-pos vlf-batch-size)
+                               vlf-end-pos))
+        (vlf-update-buffer-name)
+        (goto-char pos))))
   t)
 
 (defun vlf-file-shift-back (size-change)