* packages/vlf: Version 1.4. Add Ediff integration.

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

diff --git a/packages/vlf/vlf-write.el b/packages/vlf/vlf-write.el
index 7e9d069477bb3ea9174d933efd971b9e0a813000..e8549a7dc0ecf91fa821c5638c5488142acc3955 100644 (file)
--- a/packages/vlf/vlf-write.el
+++ b/packages/vlf/vlf-write.el
@@ -52,10 +52,14 @@ Save anyway? "))
                                 region-length)))
            (if (zerop size-change)
                (write-region nil nil buffer-file-name vlf-start-pos t)
-             (let ((pos (point)))
+             (let ((tramp-verbose (min 2 tramp-verbose))
+                   (pos (point))
+                   (font-lock font-lock-mode))
+               (font-lock-mode 0)
                (if (< 0 size-change)
                    (vlf-file-shift-back size-change)
                  (vlf-file-shift-forward (- size-change)))
+               (if font-lock (font-lock-mode 1))
                (vlf-move-to-chunk-2 vlf-start-pos
                                     (if (< (- vlf-end-pos vlf-start-pos)
                                            vlf-batch-size)