Mercurial > emacs

comparison lisp/ibuf-ext.el @ 68581:0a74d0792db2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ibuffer-mark-compressed-file-buffers): New command.
author John Paul Wallington <jpw@pobox.com>
date Thu, 02 Feb 2006 21:57:09 +0000
parents 8d183984281e
children b47862df4a6b d6f8fe3307c8
comparison
equal deleted inserted replaced
68580:43619387ab52 68581:0a74d0792db2
1 ;;; ibuf-ext.el --- extensions for ibuffer 1 ;;; ibuf-ext.el --- extensions for ibuffer
2 2
3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
4 ;; 2005 Free Software Foundation, Inc. 4 ;; 2005, 2006 Free Software Foundation, Inc.
5 5
6 ;; Author: Colin Walters <walters@verbum.org> 6 ;; Author: Colin Walters <walters@verbum.org>
7 ;; Maintainer: John Paul Wallington <jpw@gnu.org> 7 ;; Maintainer: John Paul Wallington <jpw@gnu.org>
8 ;; Created: 2 Dec 2001 8 ;; Created: 2 Dec 2001
9 ;; Keywords: buffer, convenience 9 ;; Keywords: buffer, convenience
1447 #'(lambda (buf) 1447 #'(lambda (buf)
1448 (with-current-buffer buf 1448 (with-current-buffer buf
1449 (memq major-mode ibuffer-help-buffer-modes))))) 1449 (memq major-mode ibuffer-help-buffer-modes)))))
1450 1450
1451 ;;;###autoload 1451 ;;;###autoload
1452 (defun ibuffer-mark-compressed-file-buffers ()
1453 "Mark buffers whose associated file is compressed."
1454 (interactive)
1455 (ibuffer-mark-on-buffer
1456 #'(lambda (buf)
1457 (with-current-buffer buf
1458 (and buffer-file-name
1459 (string-match ibuffer-compressed-file-name-regexp
1460 buffer-file-name))))))
1461
1462 ;;;###autoload
1452 (defun ibuffer-mark-old-buffers () 1463 (defun ibuffer-mark-old-buffers ()
1453 "Mark buffers which have not been viewed in `ibuffer-old-time' days." 1464 "Mark buffers which have not been viewed in `ibuffer-old-time' days."
1454 (interactive) 1465 (interactive)
1455 (ibuffer-mark-on-buffer 1466 (ibuffer-mark-on-buffer
1456 #'(lambda (buf) 1467 #'(lambda (buf)