# HG changeset patch
# User aidan
# Date 1151243883 0
# Node ID 94903620d9122f6e0a2f695c31eef07faf3865ac
# Parent  5938ccee377f084988fef9c33e734f15e461238f
[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.

diff -r 5938ccee377f -r 94903620d912 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Jun 24 21:51:08 2006 +0000
+++ b/lisp/ChangeLog	Sun Jun 25 13:58:03 2006 +0000
@@ -1,3 +1,9 @@
+2006-06-25  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* cmdloop.el (read-quoted-char):
+	Don't error on non-character keys, accept them as terminating the
+	sequence. 
+	
 2006-06-18  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* x-compose.el (compose-diaeresis-map):
diff -r 5938ccee377f -r 94903620d912 lisp/cmdloop.el
--- 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