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))))