Changeset 4035 for vendor/emacs-CVS_HEAD/lisp/ibuffer.el

Timestamp:

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

Author:

miyoshi

Message:

Update.

Files:

• vendor/emacs-CVS_HEAD/lisp/ibuffer.el (modified) (5 diffs)

vendor/emacs-CVS_HEAD/lisp/ibuffer.el

@@ -2 +2 @@
-
-;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
-
+, 2006
-
-;; Author: Colin Walters <walters@verbum.org>
@@ -143 +143 @@
-(defcustom ibuffer-fontification-alist
-  `((10 buffer-read-only font-lock-constant-face)
-
-
+
+
+
+
+
+
-             (null buffer-file-name))
-        italic)
-25
-0
+30
+5
-  "An alist describing how to fontify buffers.
-Each element should be of the form (PRIORITY FORM FACE), where
@@ -319 +323 @@
-  "List of \"Help\" major modes."
-  :type '(repeat function)
+  :group 'ibuffer)
+
+(defcustom ibuffer-compressed-file-name-regexp
+  (concat "\\.\\("
+        (regexp-opt '("arj" "bgz" "bz2" "gz" "lzh" "taz" "tgz" "zip" "z"))
+        "\\)$")
+  "Regexp to match compressed file names."
+  :type 'regexp
-  :group 'ibuffer)
-
@@ -404 +416 @@
-    (define-key map (kbd "* e") 'ibuffer-mark-dissociated-buffers)
-    (define-key map (kbd "* h") 'ibuffer-mark-help-buffers)
+    (define-key map (kbd "* z") 'ibuffer-mark-compressed-file-buffers)
-    (define-key map (kbd ".") 'ibuffer-mark-old-buffers)
-
@@ -719 +732 @@
-      '(menu-item "Mark help buffers" ibuffer-mark-help-buffers
-                  :help "Mark buffers in help-mode"))
+    (define-key-after map [menu-bar mark mark-compressed-file-buffers]
+      '(menu-item "Mark compressed file buffers" ibuffer-mark-compressed-file-buffers
+                  :help "Mark buffers which have a file that is compressed"))
-    (define-key-after map [menu-bar mark mark-old-buffers]
-      '(menu-item "Mark old buffers" ibuffer-mark-old-buffers