diff options
| author | John Paul Wallington <jpw@pobox.com> | 2004-08-08 22:54:36 +0000 |
|---|---|---|
| committer | John Paul Wallington <jpw@pobox.com> | 2004-08-08 22:54:36 +0000 |
| commit | 7ad938e7307746dc7e88d54085543aa548c9eb8d (patch) | |
| tree | ccbdfc4be7b82522fb16f864e3a235bc4979a367 /lisp/ibuffer.el | |
| parent | 3bc603c41715a07b049bc26e4ec1022531b2f557 (diff) | |
| download | emacs-7ad938e7307746dc7e88d54085543aa548c9eb8d.tar.gz | |
(define-ibuffer-column size): Use string-to-number instead of string-to-int.
(define-ibuffer-column mode): Fix indentation.
Diffstat (limited to 'lisp/ibuffer.el')
| -rw-r--r-- | lisp/ibuffer.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index 140f2995292..f013f8e3c72 100644 --- 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))) |