Parent Directory | Revision Log | Patch
revision 1.137 by jurta, Tue Aug 9 21:38:24 2005 UTC | revision 1.138 by deego, Sun Sep 18 12:25:01 2005 UTC | |
---|---|---|
# | Line 845 Otherwise, the rule is a compression rul | Line 845 Otherwise, the rule is a compression rul |
845 | (apply 'message qprompt qs-args) | (apply 'message qprompt qs-args) |
846 | (setq char (set qs-var (read-char)))) | (setq char (set qs-var (read-char)))) |
847 | ;; Display the question with the answer. | ;; Display the question with the answer. |
848 | (message (concat (apply 'format qprompt qs-args) | (message "%s" (concat (apply 'format qprompt qs-args) |
849 | (char-to-string char))) | (char-to-string char))) |
850 | (memq (cdr elt) '(t y yes))))))) | (memq (cdr elt) '(t y yes))))))) |
851 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |