From 28255a2aa2afe34f5e36ebae723fdc61a40bded9 Mon Sep 17 00:00:00 2001 From: Colin Marquardt Date: Tue, 23 Apr 2013 19:15:43 +0300 Subject: [PATCH] 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