diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-01-16 15:57:42 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-01-16 15:57:42 +0000 |
| commit | c0b746f3f769bd61c15f0111ad57698c5f5c5ec1 (patch) | |
| tree | 4a6f5e1be9af06a23ea8ace3a174407d00d7062f /lisp/ibuf-ext.el | |
| parent | 310b2d400e0205a681fa584c20acff1ed111c434 (diff) | |
| download | emacs-c0b746f3f769bd61c15f0111ad57698c5f5c5ec1.tar.gz | |
(ibuffer-auto-update-changed, ibuffer-auto-mode): Use derived-mode-p.
(ibuffer-mark-by-mode-regexp): Pass the buffer to format-mode-line.
Diffstat (limited to 'lisp/ibuf-ext.el')
| -rw-r--r-- | lisp/ibuf-ext.el | 8 |
1 files changed, 4 insertions, 4 deletions
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 |