Mercurial > emacs
comparison lisp/dired-aux.el @ 3089:02bed2af9f9b
(dired-compress-file): Test the return value
of dired-check-process properly.
Fix use of nonexistent var `name'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 25 May 1993 19:05:13 +0000 |
| parents | 0f6e6e56b403 |
| children | 4fb117e74844 |
comparison
equal
deleted
inserted
replaced
| 3088:0f6e6e56b403 | 3089:02bed2af9f9b |
|---|---|
| 491 "uncompress" file)) | 491 "uncompress" file)) |
| 492 (substring file 0 -2))) | 492 (substring file 0 -2))) |
| 493 (t | 493 (t |
| 494 (if (not (dired-check-process (concat "Compressing " file) | 494 (if (not (dired-check-process (concat "Compressing " file) |
| 495 "compress" "-f" file)) | 495 "compress" "-f" file)) |
| 496 (concat name ".Z")))))) | 496 (concat file ".Z")))))) |
| 497 | 497 |
| 498 (defun dired-mark-confirm (op-symbol arg) | 498 (defun dired-mark-confirm (op-symbol arg) |
| 499 ;; Request confirmation from the user that the operation described | 499 ;; Request confirmation from the user that the operation described |
| 500 ;; by OP-SYMBOL is to be performed on the marked files. | 500 ;; by OP-SYMBOL is to be performed on the marked files. |
| 501 ;; Confirmation consists in a y-or-n question with a file list | 501 ;; Confirmation consists in a y-or-n question with a file list |