Parent Directory | Revision Log | Patch
revision 1.132 by rms, Thu Jun 23 21:23:17 2005 UTC | revision 1.133 by rms, Sun Jul 3 16:10:07 2005 UTC | |
---|---|---|
# | Line 839 Otherwise, the rule is a compression rul | Line 839 Otherwise, the rule is a compression rul |
839 | (sit-for 1) | (sit-for 1) |
840 | (apply 'message qprompt qs-args) | (apply 'message qprompt qs-args) |
841 | (setq char (set qs-var (read-char)))) | (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))) | |
845 | (memq (cdr elt) '(t y yes))))))) | (memq (cdr elt) '(t y yes))))))) |
846 | ||
847 | ;;;###autoload | ;;;###autoload |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |