Mercurial > hg > xemacs-beta

comparison lisp/cmdloop.el @ 4222:38ef5a6da799

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-10-13 14:08:26 by aidan] Fix the nomule package build; eliminate some non-X compile time warnings.
author aidan
date Sat, 13 Oct 2007 14:08:30 +0000
parents 7d97cf62c899
children fd36a980d701
comparison
equal deleted inserted replaced
4221:807c86a7612a 4222:38ef5a6da799
486 Takes one argument, which is the string to display to ask the question. 486 Takes one argument, which is the string to display to ask the question.
487 It should end in a space; `yes-or-no-p' adds `(yes or no) ' to it. 487 It should end in a space; `yes-or-no-p' adds `(yes or no) ' to it.
488 The user must confirm the answer with RET, 488 The user must confirm the answer with RET,
489 and can edit it until it as been confirmed." 489 and can edit it until it as been confirmed."
490 (if (should-use-dialog-box-p) 490 (if (should-use-dialog-box-p)
491 (yes-or-no-p-dialog-box prompt) 491 ;; and-fboundp is redundant, since yes-or-no-p-dialog-box is only
492 ;; bound if (featurep 'dialog). But it eliminates a compile-time
493 ;; warning.
494 (and-fboundp #'yes-or-no-p-dialog-box (yes-or-no-p-dialog-box prompt))
492 (yes-or-no-p-minibuf prompt))) 495 (yes-or-no-p-minibuf prompt)))
493 496
494 (defun y-or-n-p (prompt) 497 (defun y-or-n-p (prompt)
495 "Ask user a \"y or n\" question. Return t if answer is \"y\". 498 "Ask user a \"y or n\" question. Return t if answer is \"y\".
496 Takes one argument, which is the string to display to ask the question. 499 Takes one argument, which is the string to display to ask the question.