From 4e0299e5780136c89f9286cbb101e2208b8eb5fe Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Thu, 4 May 2006 13:39:36 +0000 Subject: [PATCH] (ibuffer-compressed-file-name-regexp): Avoid loading regexp-opt at run time. --- lisp/ChangeLog | 3 +++ lisp/ibuffer.el | 9 +++++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6e0da2e64db..626677de1d0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2006-05-04 Dan Nicolaescu + * 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 diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index 0a84f9b0c82..4b1069b26c1 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." -- 2.39.2