Mercurial > emacs

changeset 70375:87734376b1be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ibuffer-compressed-file-name-regexp): Avoid loading regexp-opt at run time.
author Dan Nicolaescu <dann@ics.uci.edu>
date Thu, 04 May 2006 13:39:36 +0000
parents 22d5b4711713
children 64d64506f4b1
files lisp/ChangeLog lisp/ibuffer.el
diffstat 2 files changed, 8 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Thu May 04 13:23:38 2006 +0000
+++ b/lisp/ChangeLog	Thu May 04 13:39:36 2006 +0000
@@ -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>
--- a/lisp/ibuffer.el	Thu May 04 13:23:38 2006 +0000
+++ b/lisp/ibuffer.el	Thu May 04 13:39:36 2006 +0000
@@ -324,13 +324,14 @@
   :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."