X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fcmdloop.el;h=e5b4be0f8fbf4b89b61f6bd4ebec14503a21373c;hp=53fd00bdb627ac03452b6cdbc96beec43d3169a6;hb=77dcef404dc78635f6ffa8f71a803d2bc7cc8921;hpb=fc475e6669a613cd6d98eb5511c749a23b63c7ac

diff --git a/lisp/cmdloop.el b/lisp/cmdloop.el
index 53fd00b..e5b4be0 100644
--- 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)