diff options
| author | Dan Nicolaescu | 2006-05-05 16:19:56 +0000 |
|---|---|---|
| committer | Dan Nicolaescu | 2006-05-05 16:19:56 +0000 |
| commit | c7f5c0a82be7ee473882924b733fdd80db4f8f7c (patch) | |
| tree | 3581a18d4fc9276342ccd59479eabfd6fa2f1a00 | |
| parent | dfe1fb06ab96638e7cf22e1d2d549051eb5c4f7c (diff) | |
| download | emacs-c7f5c0a82be7ee473882924b733fdd80db4f8f7c.tar.gz emacs-c7f5c0a82be7ee473882924b733fdd80db4f8f7c.zip | |
(ibuffer-compressed-file-name-regexp): Undo previous
change.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/ibuffer.el | 3 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 90e67dabb86..c4b2f23dddc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2006-05-05 Dan Nicolaescu <dann@ics.uci.edu> | ||
| 2 | |||
| 3 | * ibuffer.el (ibuffer-compressed-file-name-regexp): Undo previous | ||
| 4 | change. | ||
| 5 | |||
| 1 | 2006-05-05 Reiner Steib <Reiner.Steib@gmx.de> | 6 | 2006-05-05 Reiner Steib <Reiner.Steib@gmx.de> |
| 2 | 7 | ||
| 3 | * startup.el (command-line-1): Refer to "Pure Storage" on | 8 | * startup.el (command-line-1): Refer to "Pure Storage" on |
diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index 4b1069b26c1..a4762cfec10 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el | |||
| @@ -324,14 +324,13 @@ directory, like `default-directory'." | |||
| 324 | :type '(repeat function) | 324 | :type '(repeat function) |
| 325 | :group 'ibuffer) | 325 | :group 'ibuffer) |
| 326 | 326 | ||
| 327 | (eval-when-compile | ||
| 328 | (defcustom ibuffer-compressed-file-name-regexp | 327 | (defcustom ibuffer-compressed-file-name-regexp |
| 329 | (concat "\\.\\(" | 328 | (concat "\\.\\(" |
| 330 | (regexp-opt '("arj" "bgz" "bz2" "gz" "lzh" "taz" "tgz" "zip" "z")) | 329 | (regexp-opt '("arj" "bgz" "bz2" "gz" "lzh" "taz" "tgz" "zip" "z")) |
| 331 | "\\)$") | 330 | "\\)$") |
| 332 | "Regexp to match compressed file names." | 331 | "Regexp to match compressed file names." |
| 333 | :type 'regexp | 332 | :type 'regexp |
| 334 | :group 'ibuffer)) | 333 | :group 'ibuffer) |
| 335 | 334 | ||
| 336 | (defcustom ibuffer-hook nil | 335 | (defcustom ibuffer-hook nil |
| 337 | "Hook run when `ibuffer' is called." | 336 | "Hook run when `ibuffer' is called." |