mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

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

Browse Source 
(define-ibuffer-column mode): Fix indentation.
This commit is contained in:
John Paul Wallington 2004-08-08 22:54:36 +00:00
parent 3bc603c417
commit 7ad938e730
2 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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

15
lisp/ibuffer.el
View File

@ -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)))