Mercurial > emacs
comparison lisp/map-ynp.el @ 909:4c6cdb66c74c
*** empty log message ***
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 03 Aug 1992 02:02:37 +0000 |
parents | f7de428cb8bf |
children | e18a3f6689a9 |
comparison
equal
deleted
inserted
replaced
908:94eb4344341b | 909:4c6cdb66c74c |
---|---|
116 (setq prompt (funcall prompter elt)) | 116 (setq prompt (funcall prompter elt)) |
117 (if (stringp prompt) | 117 (if (stringp prompt) |
118 (progn | 118 (progn |
119 ;; Prompt the user about this object. | 119 ;; Prompt the user about this object. |
120 (let ((cursor-in-echo-area t)) | 120 (let ((cursor-in-echo-area t)) |
121 (message "%s(y, n, ! ., q, %sor %s)" | 121 (message "%s(y, n, !, ., q, %sor %s) " |
122 prompt user-keys | 122 prompt user-keys |
123 (key-description (char-to-string help-char))) | 123 (key-description (char-to-string help-char))) |
124 (setq char (read-char))) | 124 (setq char (read-char))) |
125 (cond ((or (= ?q char) | 125 (cond ((or (= ?q char) |
126 (= ?\e char)) | 126 (= ?\e char)) |