Commit b5c49962 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(ibuffer-auto-update-changed, ibuffer-auto-mode): Use derived-mode-p.

(ibuffer-mark-by-mode-regexp): Pass the buffer to format-mode-line.
parent 145fe412
2008-01-16 Stefan Monnier <monnier@iro.umontreal.ca> 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. * help.el (describe-mode): Pass the right buffer to format-mode-line.
2008-01-16 Glenn Morris <rgm@gnu.org> 2008-01-16 Glenn Morris <rgm@gnu.org>
......
...@@ -228,7 +228,7 @@ Currently, this only applies to `ibuffer-saved-filters' and ...@@ -228,7 +228,7 @@ Currently, this only applies to `ibuffer-saved-filters' and
(ignore-errors (ignore-errors
(with-current-buffer buf (with-current-buffer buf
(when (and ibuffer-auto-mode (when (and ibuffer-auto-mode
(eq major-mode 'ibuffer-mode)) (derived-mode-p 'ibuffer-mode))
(ibuffer-update nil t))))))) (ibuffer-update nil t)))))))
;;;###autoload ;;;###autoload
...@@ -236,7 +236,7 @@ Currently, this only applies to `ibuffer-saved-filters' and ...@@ -236,7 +236,7 @@ Currently, this only applies to `ibuffer-saved-filters' and
"Toggle use of Ibuffer's auto-update facility. "Toggle use of Ibuffer's auto-update facility.
With numeric ARG, enable auto-update if and only if ARG is positive." With numeric ARG, enable auto-update if and only if ARG is positive."
(interactive) (interactive)
(unless (eq major-mode 'ibuffer-mode) (unless (derived-mode-p 'ibuffer-mode)
(error "This buffer is not in Ibuffer mode")) (error "This buffer is not in Ibuffer mode"))
(set (make-local-variable 'ibuffer-auto-mode) (set (make-local-variable 'ibuffer-auto-mode)
(if arg (if arg
...@@ -1386,7 +1386,7 @@ You can then feed the file name(s) to other commands with \\[yank]." ...@@ -1386,7 +1386,7 @@ You can then feed the file name(s) to other commands with \\[yank]."
(ibuffer-mark-on-buffer (ibuffer-mark-on-buffer
#'(lambda (buf) #'(lambda (buf)
(with-current-buffer 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 ;;;###autoload
(defun ibuffer-mark-by-file-name-regexp (regexp) (defun ibuffer-mark-by-file-name-regexp (regexp)
...@@ -1539,5 +1539,5 @@ defaults to one." ...@@ -1539,5 +1539,5 @@ defaults to one."
(provide 'ibuf-ext) (provide 'ibuf-ext)
;;; arch-tag: 9af21953-deda-4c30-b76d-f81d9128e76d ;; arch-tag: 9af21953-deda-4c30-b76d-f81d9128e76d
;;; ibuf-ext.el ends here ;;; ibuf-ext.el ends here
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment