Mercurial > hg > xemacs-beta

comparison lisp/cmdloop.el @ 2828:a25c824ed558

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-06-26 18:04:49 by aidan] Rename the ascii-character property, support more keysyms.
author aidan
date Sun, 26 Jun 2005 18:05:05 +0000
parents 139afe9fb2ee
children 827b833cd3ce
comparison
equal deleted inserted replaced
2827:936a6576c655 2828:a25c824ed558
565 or the octal character code. 565 or the octal character code.
566 RET terminates the character code and is discarded; 566 RET terminates the character code and is discarded;
567 any other non-digit terminates the character code and is then used as input.")) 567 any other non-digit terminates the character code and is then used as input."))
568 (and prompt (display-message 'prompt (format "%s-" prompt))) 568 (and prompt (display-message 'prompt (format "%s-" prompt)))
569 (setq event (next-command-event) 569 (setq event (next-command-event)
570 char (or (event-to-character event nil nil t) 570 char (or (event-to-character event)
571 (signal 'error 571 (signal 'error
572 (list "key read cannot be inserted in a buffer" 572 (list "key read cannot be inserted in a buffer"
573 event)))) 573 event))))
574 (if inhibit-quit (setq quit-flag nil))) 574 (if inhibit-quit (setq quit-flag nil)))
575 ;; Translate TAB key into control-I ASCII character, and so on. 575 ;; Translate TAB key into control-I ASCII character, and so on.