Mercurial > hg > xemacs-beta

diff lisp/cmdloop.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents c9fe270a4101
children 74fd4e045ea6
line wrap: on
line diff
--- a/lisp/cmdloop.el	Mon Aug 13 11:06:08 2007 +0200
+++ b/lisp/cmdloop.el	Mon Aug 13 11:07:10 2007 +0200
@@ -433,9 +433,9 @@
       (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)