Mercurial > emacs
changeset 56630:50923476a86f
(define-ibuffer-column size): Use string-to-number instead of string-to-int.
(define-ibuffer-column mode): Fix indentation.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Sun, 08 Aug 2004 22:53:11 +0000 |
| parents | ba58809b0845 |
| children | c79de86ff90b |
| files | lisp/ibuffer.el |
| diffstat | 1 files changed, 8 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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)))