From 7ad938e7307746dc7e88d54085543aa548c9eb8d Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Sun, 8 Aug 2004 22:54:36 +0000 Subject: [PATCH] (define-ibuffer-column size): Use string-to-number instead of string-to-int. (define-ibuffer-column mode): Fix indentation. --- lisp/ChangeLog | 6 ++++++ lisp/ibuffer.el | 15 ++++++++------- 2 files changed, 14 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ac91216cdca..31e414c2a4b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2004-08-08 John Paul Wallington + + * 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 * wid-edit.el (widget-sexp-validate): Allow whitespace after 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))) -- 2.11.4.GIT