[elpa] externals/vlf 177c680 147/310: Revert to showing batch size in buffer name instead of the mode-line.

[Stefan Monnier]

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

    Revert to showing batch size in buffer name instead of the mode-line.
---
 README.org | 12 ++++++------
 vlf.el     | 24 +++++++-----------------
 2 files changed, 13 insertions(+), 23 deletions(-)

diff --git a/README.org b/README.org
index efe161a..ed2fa58 100644
--- a/README.org
+++ b/README.org
@@ -62,8 +62,8 @@ respectively.
 
 *C-c C-v j* jumps to given chunk.  To see where you are in file and
 how many chunks there are (using the current batch size), look at the
-bracketed part of the buffer name, batch size is indicated in the
-mode-line.
+parenthesized part of the buffer name, batch size is also indicated at
+the end.
 
 ** Search whole file
 
@@ -74,10 +74,10 @@ beforehand.
 
 ** Occur over whole file
 
-*C-c C-v o* builds index for given regular expression just like M-x
-occur*.  It does this batch by batch over the whole file.  Note that
-even if you prematurely stop it with *C-g*, it will still show index
-of what's found so far.
+*C-c C-v o* builds index for given regular expression just like
+*M-x occur*.  It does this batch by batch over the whole file.  Note
+that even if you prematurely stop it with *C-g*, it will still show
+index of what's found so far.
 
 ** Jump to line
 
diff --git a/vlf.el b/vlf.el
index 19d04b5..ce0855b 100644
--- a/vlf.el
+++ b/vlf.el
@@ -209,24 +209,14 @@ with the prefix argument DECREASE it is halved."
                          (* vlf-batch-size 2)))
   (vlf-move-to-batch vlf-start-pos))
 
-(defun vlf-format-buffer-name ()
-  "Return format for vlf buffer name."
-  (format "%s(%d/%d)"
-          (file-name-nondirectory buffer-file-name)
-          (/ vlf-end-pos vlf-batch-size)
-          (/ vlf-file-size vlf-batch-size)))
-
 (defun vlf-update-buffer-name ()
-  "Update the current buffer name and modeline."
-  (rename-buffer (vlf-format-buffer-name) t)
-  (setq minor-mode-alist
-        (mapcar (lambda (x)
-                  (if (eq 'vlf-mode (car x))
-                      `(vlf-mode ,(format " VLF[%s]"
-                                          (file-size-human-readable
-                                           vlf-batch-size)))
-                    x))
-         minor-mode-alist)))
+  "Update the current buffer name."
+  (rename-buffer (format "%s(%d/%d)[%s]"
+                         (file-name-nondirectory buffer-file-name)
+                         (/ vlf-end-pos vlf-batch-size)
+                         (/ vlf-file-size vlf-batch-size)
+                         (file-size-human-readable vlf-batch-size))
+                 t))
 
 (defun vlf-get-file-size (file)
   "Get size in bytes of FILE."