Mercurial > emacs
comparison lisp/dired-aux.el @ 1381:1131f4462ca2
* dired-aux.el (dired-compress-file): Change references to
`from-file' to use `file'; the former only works because
dired-compress-file is only called by dired-compress, which binds
from-file.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sun, 11 Oct 1992 06:34:28 +0000 |
| parents | 54a44b2b9591 |
| children | 2d29bf379da3 |
comparison
equal
deleted
inserted
replaced
| 1380:a7003e65eb66 | 1381:1131f4462ca2 |
|---|---|
| 488 (cond (handler | 488 (cond (handler |
| 489 (funcall handler 'dired-compress-file file)) | 489 (funcall handler 'dired-compress-file file)) |
| 490 ((file-symlink-p file) | 490 ((file-symlink-p file) |
| 491 nil) | 491 nil) |
| 492 ((string-match "\\.Z$" file) | 492 ((string-match "\\.Z$" file) |
| 493 (if (dired-check-process (concat "Uncompressing " from-file) | 493 (if (dired-check-process (concat "Uncompressing " file) |
| 494 "uncompress" from-file) | 494 "uncompress" file) |
| 495 (substring file 0 -2))) | 495 (substring file 0 -2))) |
| 496 (t | 496 (t |
| 497 (if (dired-check-process (concat "Compressing " from-file) | 497 (if (dired-check-process (concat "Compressing " file) |
| 498 "compress" "-f" from-file) | 498 "compress" "-f" file) |
| 499 (concat name ".Z")))))) | 499 (concat name ".Z")))))) |
| 500 | 500 |
| 501 (defun dired-mark-confirm (op-symbol arg) | 501 (defun dired-mark-confirm (op-symbol arg) |
| 502 ;; Request confirmation from the user that the operation described | 502 ;; Request confirmation from the user that the operation described |
| 503 ;; by OP-SYMBOL is to be performed on the marked files. | 503 ;; by OP-SYMBOL is to be performed on the marked files. |