User: aidan Date: 06/06/25 15:58:05 Modified: xemacs/lisp ChangeLog cmdloop.el Log: Don't error on non-character keys in read-quoted-char, accept them as terminating the sequence instead. Revision Changes Path 1.750 +6 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.749 retrieving revision 1.750 diff -u -p -r1.749 -r1.750 --- ChangeLog 2006/06/18 21:43:38 1.749 +++ ChangeLog 2006/06/25 13:58:02 1.750 ＠＠ -1,3 +1,9 ＠＠ +2006-06-25 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * cmdloop.el (read-quoted-char): + Don't error on non-character keys, accept them as terminating the + sequence. + 2006-06-18 Aidan Kehoe <kehoea(a)parhasard.net&gt; * x-compose.el (compose-diaeresis-map): 1.22 +3 -4 XEmacs/xemacs/lisp/cmdloop.el Index: cmdloop.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/cmdloop.el,v retrieving revision 1.21 retrieving revision 1.22 diff -u -p -r1.21 -r1.22 --- cmdloop.el 2006/04/16 17:09:30 1.21 +++ cmdloop.el 2006/06/25 13:58:03 1.22 ＠＠ -577,10 +577,9 ＠＠ any other non-digit terminates the chara 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