[Emacs-diffs] Changes to emacs/lisp/ibuf-ext.el

[John Paul Wallington]

Index: emacs/lisp/ibuf-ext.el
diff -u emacs/lisp/ibuf-ext.el:1.48 emacs/lisp/ibuf-ext.el:1.49
--- emacs/lisp/ibuf-ext.el:1.48 Thu Dec  8 23:48:18 2005
+++ emacs/lisp/ibuf-ext.el      Thu Feb  2 21:57:09 2006
@@ -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 <address@hidden>
 ;; Maintainer: John Paul Wallington <address@hidden>
@@ -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)