Mercurial > emacs
changeset 87790:d4459bad23ea
(ibuffer-auto-update-changed, ibuffer-auto-mode): Use derived-mode-p.
(ibuffer-mark-by-mode-regexp): Pass the buffer to format-mode-line.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 16 Jan 2008 15:57:42 +0000 |
| parents | 16e347bbe4ce |
| children | 179da0eedc24 |
| files | lisp/ChangeLog lisp/ibuf-ext.el |
| diffstat | 2 files changed, 8 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Jan 16 15:55:15 2008 +0000 +++ b/lisp/ChangeLog Wed Jan 16 15:57:42 2008 +0000 @@ -1,5 +1,9 @@ 2008-01-16 Stefan Monnier <monnier@iro.umontreal.ca> + * ibuf-ext.el (ibuffer-auto-update-changed, ibuffer-auto-mode): + Use derived-mode-p. + (ibuffer-mark-by-mode-regexp): Pass the buffer to format-mode-line. + * help.el (describe-mode): Pass the right buffer to format-mode-line. 2008-01-16 Glenn Morris <rgm@gnu.org>
--- a/lisp/ibuf-ext.el Wed Jan 16 15:55:15 2008 +0000 +++ b/lisp/ibuf-ext.el Wed Jan 16 15:57:42 2008 +0000 @@ -228,7 +228,7 @@ (ignore-errors (with-current-buffer buf (when (and ibuffer-auto-mode - (eq major-mode 'ibuffer-mode)) + (derived-mode-p 'ibuffer-mode)) (ibuffer-update nil t))))))) ;;;###autoload @@ -236,7 +236,7 @@ "Toggle use of Ibuffer's auto-update facility. With numeric ARG, enable auto-update if and only if ARG is positive." (interactive) - (unless (eq major-mode 'ibuffer-mode) + (unless (derived-mode-p 'ibuffer-mode) (error "This buffer is not in Ibuffer mode")) (set (make-local-variable 'ibuffer-auto-mode) (if arg @@ -1386,7 +1386,7 @@ (ibuffer-mark-on-buffer #'(lambda (buf) (with-current-buffer buf - (string-match regexp (format-mode-line mode-name)))))) + (string-match regexp (format-mode-line mode-name nil nil buf)))))) ;;;###autoload (defun ibuffer-mark-by-file-name-regexp (regexp) @@ -1539,5 +1539,5 @@ (provide 'ibuf-ext) -;;; arch-tag: 9af21953-deda-4c30-b76d-f81d9128e76d +;; arch-tag: 9af21953-deda-4c30-b76d-f81d9128e76d ;;; ibuf-ext.el ends here