Mercurial > emacs
changeset 85590:3055282f9d8f
(ibuffer-auto-update-changed): Use `dolist' rather than `mapcar';
return value is not used.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 23 Oct 2007 15:54:06 +0000 |
| parents | a86030d75a46 |
| children | d5c01c5acf7c |
| files | lisp/ibuf-ext.el |
| diffstat | 1 files changed, 7 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ibuf-ext.el Tue Oct 23 15:44:23 2007 +0000 +++ b/lisp/ibuf-ext.el Tue Oct 23 15:54:06 2007 +0000 @@ -224,13 +224,12 @@ (defun ibuffer-auto-update-changed () (when (frame-or-buffer-changed-p 'ibuffer-auto-buffers-changed) - (mapcar #'(lambda (buf) - (ignore-errors - (with-current-buffer buf - (when (and ibuffer-auto-mode - (eq major-mode 'ibuffer-mode)) - (ibuffer-update nil t))))) - (buffer-list)))) + (dolist (buf (buffer-list)) + (ignore-errors + (with-current-buffer buf + (when (and ibuffer-auto-mode + (eq major-mode 'ibuffer-mode)) + (ibuffer-update nil t))))))) ;;;###autoload (defun ibuffer-auto-mode (&optional arg) @@ -243,7 +242,7 @@ (if arg (plusp arg) (not ibuffer-auto-mode))) - (frame-or-buffer-changed-p 'ibuffer-auto-buffers-changed) + (frame-or-buffer-changed-p 'ibuffer-auto-buffers-changed) ; Initialize state vector (add-hook 'post-command-hook 'ibuffer-auto-update-changed) (ibuffer-update-mode-name))