Mercurial > hg > xemacs-beta
changeset 3474:94903620d912
[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 | 5938ccee377f |
| children | c3175ca37443 |
| files | lisp/ChangeLog lisp/cmdloop.el |
| diffstat | 2 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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):
--- 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