From fb9aa670ccb691e5fb46334db61ece93531cdb1f Mon Sep 17 00:00:00 2001 From: Andrey Kotlarski Date: Sat, 30 Mar 2013 02:17:34 +0200 Subject: [PATCH] Remove clutter form file name indicators. --- vlfi.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/vlfi.el b/vlfi.el index ffeef2e..431b5c0 100644 --- a/vlfi.el +++ b/vlfi.el @@ -95,13 +95,11 @@ with the prefix argument DECREASE it is halved." (defun vlfi-format-buffer-name () "Return format for vlfi buffer name." - (let ((vlfi-file-size-float (float vlfi-file-size))) - (format "%s(%s)[%.2f-%.2f%%%%](%d)" - (file-name-nondirectory buffer-file-name) - (file-size-human-readable vlfi-file-size) - (* 100 (/ vlfi-start-pos vlfi-file-size-float)) - (* 100 (/ vlfi-end-pos vlfi-file-size-float)) - vlfi-batch-size))) + (format "%s(%s)[%.2f%%%%](%d)" + (file-name-nondirectory buffer-file-name) + (file-size-human-readable vlfi-file-size) + (/ (* 100 vlfi-end-pos) (float vlfi-file-size)) + vlfi-batch-size)) (defun vlfi-update-buffer-name () "Update the current buffer name."