From: John Paul Wallington <jpw@pobox.com>
Date: Thu, 2 Feb 2006 21:57:09 +0000 (+0000)
Subject: (ibuffer-mark-compressed-file-buffers): New command.
X-Git-Tag: emacs-pretest-22.0.90~4402
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4b9ae390faf4e6ccf1c20b62c349fc1ebd901e05;p=emacs.git

(ibuffer-mark-compressed-file-buffers): New command.
---

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>
@@ -1448,6 +1448,17 @@ You can then feed the file name(s) to other commands with \\[yank]."
        (with-current-buffer buf
 	 (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."