diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2006-05-04 13:39:36 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2006-05-04 13:39:36 +0000 |
| commit | 4e0299e5780136c89f9286cbb101e2208b8eb5fe (patch) | |
| tree | 0a221d898463ba93a8fff39c22efa13a48e86b18 /lisp/ibuffer.el | |
| parent | f5c0ef7bd47ea9bfd01da6039c0a18c896c4e796 (diff) | |
| download | emacs-4e0299e5780136c89f9286cbb101e2208b8eb5fe.tar.gz | |
(ibuffer-compressed-file-name-regexp): Avoid loading
regexp-opt at run time.
Diffstat (limited to 'lisp/ibuffer.el')
| -rw-r--r-- | lisp/ibuffer.el | 9 |
1 files changed, 5 insertions, 4 deletions
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." |