XEmacs 21.2.14.

[chise/xemacs-chise.git.1] / lisp / cmdloop.el

diff --git a/lisp/cmdloop.el b/lisp/cmdloop.el
index 53fd00b..e5b4be0 100644 (file)
--- a/lisp/cmdloop.el
+++ b/lisp/cmdloop.el
@@ -433,9 +433,9 @@ and can edit it until it has been confirmed."
       (while (stringp ans)
         (setq ans (downcase (read-string p nil t))) ;no history
         (cond ((string-equal ans (gettext "yes"))
-               (setq ans 't))
+               (setq ans t))
               ((string-equal ans (gettext "no"))
-               (setq ans 'nil))
+               (setq ans nil))
               (t
                (ding nil 'yes-or-no-p)
                (discard-input)