Changeset 4035 for vendor/emacs-CVS_HEAD/lisp/ibuf-ext.el

Timestamp:

2006年02月15日 21時20分13秒 (3 years ago)

Author:

miyoshi

Message:

Update.

Files:

• vendor/emacs-CVS_HEAD/lisp/ibuf-ext.el (modified) (2 diffs)

vendor/emacs-CVS_HEAD/lisp/ibuf-ext.el

@@ -2 +2 @@
-
-;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
-
+, 2006
-
-;; Author: Colin Walters <walters@verbum.org>
@@ -1450 +1450 @@
-
-;;;###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."