Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
3473:5938ccee377f 3474:94903620d912
575 RET terminates the character code and is discarded; 575 RET terminates the character code and is discarded;
576 any other non-digit terminates the character code and is then used as input." 576 any other non-digit terminates the character code and is then used as input."
577 read-quoted-char-radix))) 577 read-quoted-char-radix)))
578 (and prompt (display-message 'prompt (format "%s-" prompt))) 578 (and prompt (display-message 'prompt (format "%s-" prompt)))
579 (setq event (next-command-event) 579 (setq event (next-command-event)
580 char (or (event-to-character event) 580 ;; If event-to-character fails, this is fine, we handle that
581 (signal 'error 581 ;; with the (null char) cond branch below.
582 (list "key read cannot be inserted in a buffer" 582 char (event-to-character event))
583 event))))
584 (if inhibit-quit (setq quit-flag nil))) 583 (if inhibit-quit (setq quit-flag nil)))
585 ;; Translate TAB key into control-I ASCII character, and so on. 584 ;; Translate TAB key into control-I ASCII character, and so on.
586 (and char 585 (and char
587 (let ((translated (lookup-key function-key-map (vector char)))) 586 (let ((translated (lookup-key function-key-map (vector char))))
588 (if (arrayp translated) 587 (if (arrayp translated)