Mercurial > hg > xemacs-beta
comparison lisp/cmdloop.el @ 380:8626e4521993 r21-2-5
Import from CVS: tag r21-2-5
author | cvs |
---|---|
date | Mon, 13 Aug 2007 11:07:10 +0200 |
parents | c9fe270a4101 |
children | 74fd4e045ea6 |
comparison
equal
deleted
inserted
replaced
379:76b7d63099ad | 380:8626e4521993 |
---|---|
431 (let ((p (concat (gettext prompt) (gettext "(yes or no) "))) | 431 (let ((p (concat (gettext prompt) (gettext "(yes or no) "))) |
432 (ans "")) | 432 (ans "")) |
433 (while (stringp ans) | 433 (while (stringp ans) |
434 (setq ans (downcase (read-string p nil t))) ;no history | 434 (setq ans (downcase (read-string p nil t))) ;no history |
435 (cond ((string-equal ans (gettext "yes")) | 435 (cond ((string-equal ans (gettext "yes")) |
436 (setq ans 't)) | 436 (setq ans t)) |
437 ((string-equal ans (gettext "no")) | 437 ((string-equal ans (gettext "no")) |
438 (setq ans 'nil)) | 438 (setq ans nil)) |
439 (t | 439 (t |
440 (ding nil 'yes-or-no-p) | 440 (ding nil 'yes-or-no-p) |
441 (discard-input) | 441 (discard-input) |
442 (message "Please answer yes or no.") | 442 (message "Please answer yes or no.") |
443 (sleep-for 2)))) | 443 (sleep-for 2)))) |