X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/f5c0ef7bd47ea9bfd01da6039c0a18c896c4e796..4e0299e5780136c89f9286cbb101e2208b8eb5fe:/lisp/ibuffer.el

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 0a84f9b0c8..4b1069b26c 100644
--- 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."