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

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)