diff options
author | John Paul Wallington <jpw@pobox.com> | 2006-02-02 21:57:09 +0000 |
---|---|---|
committer | John Paul Wallington <jpw@pobox.com> | 2006-02-02 21:57:09 +0000 |
commit | 4b9ae390faf4e6ccf1c20b62c349fc1ebd901e05 (patch) | |
tree | f13f63a8b7f8b594c93fd5f456d167e2f8737e76 /lisp/ibuf-ext.el | |
parent | 9fe14abebd0e592e60fcd12d2f3b816600771236 (diff) | |
download | emacs-4b9ae390faf4e6ccf1c20b62c349fc1ebd901e05.tar.gz |
(ibuffer-mark-compressed-file-buffers): New command.
Diffstat (limited to 'lisp/ibuf-ext.el')
-rw-r--r-- | lisp/ibuf-ext.el | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index 2de72547887..e5820d066e2 100644 --- a/lisp/ibuf-ext.el +++ b/lisp/ibuf-ext.el @@ -1,7 +1,7 @@ ;;; ibuf-ext.el --- extensions for ibuffer ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, -;; 2005 Free Software Foundation, Inc. +;; 2005, 2006 Free Software Foundation, Inc. ;; Author: Colin Walters <walters@verbum.org> ;; Maintainer: John Paul Wallington <jpw@gnu.org> @@ -1449,6 +1449,17 @@ You can then feed the file name(s) to other commands with \\[yank]." (memq major-mode ibuffer-help-buffer-modes))))) ;;;###autoload +(defun ibuffer-mark-compressed-file-buffers () + "Mark buffers whose associated file is compressed." + (interactive) + (ibuffer-mark-on-buffer + #'(lambda (buf) + (with-current-buffer buf + (and buffer-file-name + (string-match ibuffer-compressed-file-name-regexp + buffer-file-name)))))) + +;;;###autoload (defun ibuffer-mark-old-buffers () "Mark buffers which have not been viewed in `ibuffer-old-time' days." (interactive) |