Mercurial > emacs
changeset 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 | 43619387ab52 |
| children | cbe9f0f2bd93 |
| files | lisp/ibuf-ext.el |
| diffstat | 1 files changed, 12 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ibuf-ext.el Thu Feb 02 21:55:33 2006 +0000 +++ b/lisp/ibuf-ext.el Thu Feb 02 21:57:09 2006 +0000 @@ -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 @@ (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)