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. |