Mercurial > emacs
comparison lisp/dired-aux.el @ 63933:dd8f5792476e
(dired-query): Display question with answer, when the user answers.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 03 Jul 2005 16:10:07 +0000 |
| parents | 503f7ad3d4d8 |
| children | 6fb026ad601f |
comparison
equal
deleted
inserted
replaced
| 63932:bbf23e50d797 | 63933:dd8f5792476e |
|---|---|
| 837 (message "Invalid char - type %c for help." help-char) | 837 (message "Invalid char - type %c for help." help-char) |
| 838 (ding) | 838 (ding) |
| 839 (sit-for 1) | 839 (sit-for 1) |
| 840 (apply 'message qprompt qs-args) | 840 (apply 'message qprompt qs-args) |
| 841 (setq char (set qs-var (read-char)))) | 841 (setq char (set qs-var (read-char)))) |
| 842 ;; Display the question with the answer. | |
| 843 (message (concat (apply 'format qprompt qs-args) | |
| 844 (char-to-string char))) | |
| 842 (memq (cdr elt) '(t y yes))))))) | 845 (memq (cdr elt) '(t y yes))))))) |
| 843 | 846 |
| 844 ;;;###autoload | 847 ;;;###autoload |
| 845 (defun dired-do-compress (&optional arg) | 848 (defun dired-do-compress (&optional arg) |
| 846 "Compress or uncompress marked (or next ARG) files." | 849 "Compress or uncompress marked (or next ARG) files." |