Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/cmdloop.el	Fri Oct 12 21:51:07 2007 +0000
+++ b/lisp/cmdloop.el	Sat Oct 13 14:08:30 2007 +0000
@@ -488,7 +488,10 @@
 The user must confirm the answer with RET,
 and can edit it until it as been confirmed."
   (if (should-use-dialog-box-p)
-      (yes-or-no-p-dialog-box prompt)
+      ;; and-fboundp is redundant, since yes-or-no-p-dialog-box is only
+      ;; bound if (featurep 'dialog). But it eliminates a compile-time
+      ;; warning.
+      (and-fboundp #'yes-or-no-p-dialog-box (yes-or-no-p-dialog-box prompt))
     (yes-or-no-p-minibuf prompt)))
 
 (defun y-or-n-p (prompt)