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