diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-10-23 15:57:57 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-10-23 15:57:57 +0000 |
| commit | 368851a5f491110bf432f31887c0e803a48ecbff (patch) | |
| tree | 84d7d302cf04c5a817bbe415db75f0c462ee7688 /lisp/ibuf-ext.el | |
| parent | 700fb4bac47d28b01ccb9960c4473e6cff6e5a90 (diff) | |
| download | emacs-368851a5f491110bf432f31887c0e803a48ecbff.tar.gz | |
(ibuffer-auto-update-changed): Use `dolist' rather than `mapcar';
return value is not used.
Diffstat (limited to 'lisp/ibuf-ext.el')
| -rw-r--r-- | lisp/ibuf-ext.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index feebab40b43..6a34ca0f4e4 100644 --- a/lisp/ibuf-ext.el +++ b/lisp/ibuf-ext.el @@ -224,13 +224,12 @@ Currently, this only applies to `ibuffer-saved-filters' and (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 @@ With numeric ARG, enable auto-update if and only if ARG is positive." (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)) |