(ibuffer-compressed-file-name-regexp): Avoid loading

regexp-opt at run time.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6e0da2e64db92b30ec0103fa16a0c469e5e31993..626677de1d08a72abc331a7cc54057149bfabeba 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2006-05-04  Dan Nicolaescu  <dann@ics.uci.edu>
 
+       * ibuffer.el (ibuffer-compressed-file-name-regexp): Avoid loading
+       regexp-opt at run time.
+
        * term.el (term-handle-ansi-escape): Fix off by one error.
 
 2006-05-04  Nick Roberts  <nickrob@snap.net.nz>

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 0a84f9b0c822d5562a1c07848a9e129283c35fde..4b1069b26c1e055f6cc6989ee741362993880d1f 100644 (file)
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -324,13 +324,14 @@ directory, like `default-directory'."
   :type '(repeat function)
   :group 'ibuffer)
 
+(eval-when-compile 
 (defcustom ibuffer-compressed-file-name-regexp
-  (concat "\\.\\("
-       (regexp-opt '("arj" "bgz" "bz2" "gz" "lzh" "taz" "tgz" "zip" "z"))
-       "\\)$")
+    (concat "\\.\\("
+           (regexp-opt '("arj" "bgz" "bz2" "gz" "lzh" "taz" "tgz" "zip" "z"))
+           "\\)$")
   "Regexp to match compressed file names."
   :type 'regexp
-  :group 'ibuffer)
+  :group 'ibuffer))
 
 (defcustom ibuffer-hook nil
   "Hook run when `ibuffer' is called."