# HG changeset patch # User John Paul Wallington # Date 1092005591 0 # Node ID 50923476a86f87eb447c01c0f8d0e35be37583da # Parent ba58809b0845c74a59841441ed2e84c7050c0434 (define-ibuffer-column size): Use string-to-number instead of string-to-int. (define-ibuffer-column mode): Fix indentation. diff -r ba58809b0845 -r 50923476a86f lisp/ibuffer.el --- a/lisp/ibuffer.el Sun Aug 08 19:38:51 2004 +0000 +++ b/lisp/ibuffer.el Sun Aug 08 22:53:11 2004 +0000 @@ -1644,16 +1644,17 @@ (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 @@ `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)))