Mercurial > hg > xemacs-beta

diff lisp/cmdloop.el @ 3474:94903620d912

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-06-25 13:58:02 by aidan] Don't error on non-character keys in read-quoted-char, accept them as terminating the sequence instead.
author aidan
date Sun, 25 Jun 2006 13:58:03 +0000
parents e9214c743a8b
children 7d97cf62c899
line wrap: on
line diff
--- a/lisp/cmdloop.el	Sat Jun 24 21:51:08 2006 +0000
+++ b/lisp/cmdloop.el	Sun Jun 25 13:58:03 2006 +0000
@@ -577,10 +577,9 @@
 	     read-quoted-char-radix)))
 	(and prompt (display-message 'prompt (format "%s-" prompt)))
 	(setq event (next-command-event)
-	      char (or (event-to-character event)
-		       (signal 'error
-			       (list "key read cannot be inserted in a buffer"
-				     event))))
+	      ;; If event-to-character fails, this is fine, we handle that
+	      ;; with the (null char) cond branch below.
+	      char (event-to-character event))
 	(if inhibit-quit (setq quit-flag nil)))
       ;; Translate TAB key into control-I ASCII character, and so on.
       (and char