From e4dcb81821f708657539f9fd426df9418bf071c9 Mon Sep 17 00:00:00 2001 From: kaoru Date: Fri, 12 Apr 2002 23:26:32 +0000 Subject: [PATCH] * wl-util.el (wl-display-bytes): Remove unused function. --- wl/wl-util.el | 15 --------------- 1 file changed, 15 deletions(-) diff --git a/wl/wl-util.el b/wl/wl-util.el index 12a5cec..1336a9d 100644 --- a/wl/wl-util.el +++ b/wl/wl-util.el @@ -204,21 +204,6 @@ If HACK-ADDRESSES is t, then the strings are considered to be mail addresses, (- width (current-column))) " ")))))))) -(defun wl-display-bytes (num) - (let (result remain) - (cond - ((> (setq result (/ num 1000000)) 0) - (setq remain (% num 1000000)) - (if (> remain 400000) - (setq result (+ 1 result))) - (format "%dM" result)) - ((> (setq result (/ num 1000)) 0) - (setq remain (% num 1000)) - (if (> remain 400) - (setq result (+ 1 result))) - (format "%dK" result)) - (t (format "%dB" num))))) - (defun wl-mode-line-buffer-identification (&optional id) (let ((priorities '(biff plug title))) (let ((items (reverse wl-mode-line-display-priority-list)) -- 1.7.10.4