Mercurial > emacs
comparison lisp/ibuf-ext.el @ 68581:0a74d0792db2
(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) |