Mercurial > emacs
comparison lisp/ibuffer.el @ 70375:87734376b1be
(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 | 986a4b641e9e |
| children | cd97ab744c2d |
comparison
equal
deleted
inserted
replaced
| 70374:22d5b4711713 | 70375:87734376b1be |
|---|---|
| 322 '(help-mode apropos-mode Info-mode Info-edit-mode) | 322 '(help-mode apropos-mode Info-mode Info-edit-mode) |
| 323 "List of \"Help\" major modes." | 323 "List of \"Help\" major modes." |
| 324 :type '(repeat function) | 324 :type '(repeat function) |
| 325 :group 'ibuffer) | 325 :group 'ibuffer) |
| 326 | 326 |
| 327 (eval-when-compile | |
| 327 (defcustom ibuffer-compressed-file-name-regexp | 328 (defcustom ibuffer-compressed-file-name-regexp |
| 328 (concat "\\.\\(" | 329 (concat "\\.\\(" |
| 329 (regexp-opt '("arj" "bgz" "bz2" "gz" "lzh" "taz" "tgz" "zip" "z")) | 330 (regexp-opt '("arj" "bgz" "bz2" "gz" "lzh" "taz" "tgz" "zip" "z")) |
| 330 "\\)$") | 331 "\\)$") |
| 331 "Regexp to match compressed file names." | 332 "Regexp to match compressed file names." |
| 332 :type 'regexp | 333 :type 'regexp |
| 333 :group 'ibuffer) | 334 :group 'ibuffer)) |
| 334 | 335 |
| 335 (defcustom ibuffer-hook nil | 336 (defcustom ibuffer-hook nil |
| 336 "Hook run when `ibuffer' is called." | 337 "Hook run when `ibuffer' is called." |
| 337 :type 'hook | 338 :type 'hook |
| 338 :group 'ibuffer) | 339 :group 'ibuffer) |