Mercurial > emacs
comparison lisp/ibuf-ext.el @ 90225:a3716f7538f2
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-79
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 519-530)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 106-111)
- Merge from emacs--cvs-trunk--0
- Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Tue, 06 Sep 2005 00:25:20 +0000 |
parents | 2d92f5c9d6ae 6705c5e7dee2 |
children | 5e2d3828e89f |
comparison
equal
deleted
inserted
replaced
90224:2d92f5c9d6ae | 90225:a3716f7538f2 |
---|---|
220 (or | 220 (or |
221 (ibuffer-included-in-filters-p buf ibuffer-filtering-qualifiers) | 221 (ibuffer-included-in-filters-p buf ibuffer-filtering-qualifiers) |
222 (ibuffer-buf-matches-predicates buf ibuffer-always-show-predicates))))) | 222 (ibuffer-buf-matches-predicates buf ibuffer-always-show-predicates))))) |
223 | 223 |
224 (defun ibuffer-auto-update-changed () | 224 (defun ibuffer-auto-update-changed () |
225 (when ibuffer-auto-buffers-changed | 225 (when (frame-or-buffer-changed-p 'ibuffer-auto-buffers-changed) |
226 (setq ibuffer-auto-buffers-changed nil) | |
227 (mapcar #'(lambda (buf) | 226 (mapcar #'(lambda (buf) |
228 (ignore-errors | 227 (ignore-errors |
229 (with-current-buffer buf | 228 (with-current-buffer buf |
230 (when (and ibuffer-auto-mode | 229 (when (and ibuffer-auto-mode |
231 (eq major-mode 'ibuffer-mode)) | 230 (eq major-mode 'ibuffer-mode)) |
241 (error "This buffer is not in Ibuffer mode")) | 240 (error "This buffer is not in Ibuffer mode")) |
242 (set (make-local-variable 'ibuffer-auto-mode) | 241 (set (make-local-variable 'ibuffer-auto-mode) |
243 (if arg | 242 (if arg |
244 (plusp arg) | 243 (plusp arg) |
245 (not ibuffer-auto-mode))) | 244 (not ibuffer-auto-mode))) |
246 (defadvice get-buffer-create (after ibuffer-notify-create activate) | 245 (frame-or-buffer-changed-p 'ibuffer-auto-buffers-changed) |
247 (setq ibuffer-auto-buffers-changed t)) | |
248 (defadvice kill-buffer (after ibuffer-notify-kill activate) | |
249 (setq ibuffer-auto-buffers-changed t)) | |
250 (add-hook 'post-command-hook 'ibuffer-auto-update-changed) | 246 (add-hook 'post-command-hook 'ibuffer-auto-update-changed) |
251 (ibuffer-update-mode-name)) | 247 (ibuffer-update-mode-name)) |
252 | 248 |
253 ;;;###autoload | 249 ;;;###autoload |
254 (defun ibuffer-mouse-filter-by-mode (event) | 250 (defun ibuffer-mouse-filter-by-mode (event) |