Mercurial > hg > xemacs-beta

diff lisp/prim/cmdloop.el @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents 0293115a14e9
children 131b0175ea99
line wrap: on
line diff
--- a/lisp/prim/cmdloop.el	Mon Aug 13 08:55:32 2007 +0200
+++ b/lisp/prim/cmdloop.el	Mon Aug 13 08:56:04 2007 +0200
@@ -341,9 +341,11 @@
                   (inhibit-quit t))
               (message "%s%s%s" pre prompt yn)
               (setq event (next-command-event event))
-              (prog1
-		  (or quit-flag (eq 'keyboard-quit (key-binding event)))
-		(setq quit-flag nil)))
+	      (condition-case nil
+		  (prog1
+		      (or quit-flag (eq 'keyboard-quit (key-binding event)))
+		    (setq quit-flag nil))
+		(wrong-type-argument t)))
             (progn
               (message "%s%s%s%s" pre prompt yn (single-key-description event))
               (setq quit-flag nil)