branch: externals/vlf
commit 28255a2aa2afe34f5e36ebae723fdc61a40bded9
Author: Colin Marquardt <[email protected]>
Commit: Colin Marquardt <[email protected]>
Correctly print MB (for older emacsen).
---
vlfi.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/vlfi.el b/vlfi.el
index 23d4f39..b157ea3 100644
--- a/vlfi.el
+++ b/vlfi.el
@@ -167,11 +167,11 @@ OP-TYPE specifies the file operation being performed over
FILENAME."
(goto-char (point-max)))
ad-do-it))
-;; non recent Emacs
+;; non-recent Emacs
(unless (fboundp 'file-size-human-readable)
(defun file-size-human-readable (file-size)
"Print FILE-SIZE in MB."
- (format "%.1fMB" (/ file-size 1024.0))))
+ (format "%.1fMB" (/ file-size 1048576.0))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; utilities
