(define-ibuffer-column size): Use string-to-number instead of string-to-int.

(define-ibuffer-column mode): Fix indentation.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ac91216cdcaf461faff0de9e9b58b34237530fa5..31e414c2a4ba73874a0b06ce0158bd7e3eebd6ab 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2004-08-08  John Paul Wallington  <jpw@gnu.org>
+
+       * ibuffer.el (define-ibuffer-column size): Use `string-to-number'
+       instead of `string-to-int'.
+       (define-ibuffer-column mode): Fix indentation.
+
 2004-08-08  Lars Hansen  <larsh@math.ku.dk>
 
        * wid-edit.el (widget-sexp-validate): Allow whitespace after

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 140f2995292587df154041304d7e0966a2b46b05..f013f8e3c7240d94f11db3034295f80cd4024aec 100644 (file)
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -1644,16 +1644,17 @@ If point is on a group name, this function operates on that group."
        (dolist (string column-strings)
         (setq total
               ;; like, ewww ...
-              (+ (float (string-to-int string))
+              (+ (float (string-to-number string))
                  total)))
        (format "%.0f" total))))
   (format "%s" (buffer-size)))
 
-(define-ibuffer-column mode (:inline t
-                            :props
-                            ('mouse-face 'highlight
-                             'keymap ibuffer-mode-name-map
-                             'help-echo "mouse-2: filter by this mode"))
+(define-ibuffer-column mode
+  (:inline t
+   :props
+   ('mouse-face 'highlight
+               'keymap ibuffer-mode-name-map
+               'help-echo "mouse-2: filter by this mode"))
   (format "%s" mode-name))
 
 (define-ibuffer-column process
@@ -2198,7 +2199,7 @@ Try to restore the previous window configuration iff
 `ibuffer-restore-window-config-on-quit' is non-nil."
   (interactive)
   (if ibuffer-restore-window-config-on-quit
-      (progn 
+      (progn
        (bury-buffer)
        (unless (= (count-windows) 1)
          (set-window-configuration ibuffer-prev-window-config)))