From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 16 Jan 2008 15:57:42 +0000 (+0000)
Subject: (ibuffer-auto-update-changed, ibuffer-auto-mode): Use derived-mode-p.
X-Git-Tag: emacs-pretest-23.0.90~8543
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b5c499629bb142f926cab4519194966baaecf911;p=emacs.git

(ibuffer-auto-update-changed, ibuffer-auto-mode): Use derived-mode-p.
(ibuffer-mark-by-mode-regexp): Pass the buffer to format-mode-line.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 334412d7d0f..19155ed1b6b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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>
diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index 0b2586d0fce..aafc93af990 100644
--- a/lisp/ibuf-ext.el
+++ b/lisp/ibuf-ext.el
@@ -228,7 +228,7 @@ Currently, this only applies to `ibuffer-saved-filters' and
       (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 @@ Currently, this only applies to `ibuffer-saved-filters' and
   "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 @@ You can then feed the file name(s) to other commands with \\[yank]."
   (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 @@ defaults to one."
 
 (provide 'ibuf-ext)
 
-;;; arch-tag: 9af21953-deda-4c30-b76d-f81d9128e76d
+;; arch-tag: 9af21953-deda-4c30-b76d-f81d9128e76d
 ;;; ibuf-ext.el ends here