Mercurial > emacs
comparison lisp/dired-aux.el @ 1170:54a44b2b9591
entered into RCS
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 19 Sep 1992 19:40:38 +0000 |
| parents | f165d900e06e |
| children | 1131f4462ca2 |
comparison
equal
deleted
inserted
replaced
| 1169:a40b54fcb2ff | 1170:54a44b2b9591 |
|---|---|
| 476 (defun dired-compress-file (file) | 476 (defun dired-compress-file (file) |
| 477 ;; Compress or uncompress FILE. | 477 ;; Compress or uncompress FILE. |
| 478 ;; Return the name of the compressed or uncompressed file. | 478 ;; Return the name of the compressed or uncompressed file. |
| 479 ;; Rerurn nil if no change in files. | 479 ;; Rerurn nil if no change in files. |
| 480 (let (handler (handlers file-name-handler-alist)) | 480 (let (handler (handlers file-name-handler-alist)) |
| 481 (while (and (consp handlers) (null handler)) | 481 (save-match-data |
| 482 (if (and (consp (car handlers)) | 482 (while (and (consp handlers) (null handler)) |
| 483 (stringp (car (car handlers))) | 483 (if (and (consp (car handlers)) |
| 484 (string-match (car (car handlers)) file)) | 484 (stringp (car (car handlers))) |
| 485 (setq handler (cdr (car handlers)))) | 485 (string-match (car (car handlers)) file)) |
| 486 (setq handlers (cdr handlers))) | 486 (setq handler (cdr (car handlers)))) |
| 487 (setq handlers (cdr handlers)))) | |
| 487 (cond (handler | 488 (cond (handler |
| 488 (funcall handler 'dired-compress-file file)) | 489 (funcall handler 'dired-compress-file file)) |
| 489 ((file-symlink-p file) | 490 ((file-symlink-p file) |
| 490 nil) | 491 nil) |
| 491 ((string-match "\\.Z$" file) | 492 ((string-match "\\.Z$" file) |