From: John Paul Wallington <jpw@pobox.com>
Date: Sun, 7 May 2006 00:00:12 +0000 (+0000)
Subject: (ibuffer-compressed-file-name-regexp): Avoid `regexp-opt' and simplify
X-Git-Tag: emacs-pretest-22.0.90~2711
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fe99056f6b41b8285162e82058d6e124118d0282;p=emacs.git

(ibuffer-compressed-file-name-regexp): Avoid `regexp-opt' and simplify
regexp for readability.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0f328678509..07e77906ccf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-05-07  John Paul Wallington  <jpw@pobox.com>
+
+	* ibuffer.el (ibuffer-compressed-file-name-regexp): Avoid
+	`regexp-opt'; simplify regexp for readability.
+
 2006-05-06  Eli Zaretskii  <eliz@gnu.org>
 
 	* ldefs-boot.el (dired-do-redisplay, dired-maybe-insert-subdir): 
diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index a4762cfec10..6264d2e56b5 100644
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -325,9 +325,7 @@ directory, like `default-directory'."
   :group 'ibuffer)
 
 (defcustom ibuffer-compressed-file-name-regexp
-    (concat "\\.\\("
-	    (regexp-opt '("arj" "bgz" "bz2" "gz" "lzh" "taz" "tgz" "zip" "z"))
-	    "\\)$")
+  "\\.\\(arj\\|bgz\\|bz2\\|gz\\|lzh\\|taz\\|tgz\\|zip\\|z\\)$"
   "Regexp to match compressed file names."
   :type 'regexp
   :group 'ibuffer)