Mercurial > hg > xemacs-beta
view etc/unicode/mule-ucs/README @ 5801:0e9f791cc655
Support `function-key-map' in #'read-char{,-exclusive}, sync API with GNU
lisp/ChangeLog addition:
2014-07-02 Aidan Kehoe <kehoea@parhasard.net>
* cmdloop.el:
* cmdloop.el (read-char-1): New.
* cmdloop.el (read-char, read-char-exclusive):
Use #'read-char-1 in these function; sync their API with that of
GNU, respect `function-key-map' where we didn't before, add
initial support for Quail input methods.
* keymap.el (next-key-event):
Accept EVENT and PROMPT arguments, as does #'next-command-event.
* keymap.el (event-apply-modifiers):
Use #'functionp here, no need to exclude lambdas from
`function-key-map'.
* keymap.el (synthesize-keysym):
Correct this function's docstring.
src/ChangeLog addition:
2014-07-02 Aidan Kehoe <kehoea@parhasard.net>
* event-stream.c (Fnext_command_event):
Only snooze displaying keystrokes if PROMPT is nil. If prompt is
non-nil, our callers want to see it.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Wed, 02 Jul 2014 16:32:19 +0100 |
parents | a29c4eef8f00 |
children |
line wrap: on
line source
The files in this directory were converted from data in the mule-ucs package (mule-ucs/lisp/reldata/*), using this code: (defun convert-mule-ucs-file (start end) (interactive "r") (with-output-to-temp-buffer "*mule-ucs-convert*" (save-excursion (goto-char start) (while (re-search-forward "(\\?\\(.\\) \\. \"\\(.*\\)\") ;+ \\(.*\\)$" end t) (let ((ch (string-to-char (match-string 1))) (codepoint (match-string 2)) (name (match-string 3))) (if (= 1 (charset-dimension (char-charset ch))) (princ (format "0x%x %s # %s\n" (char-octet ch) codepoint name)) (princ (format "0x%x%x %s # %s\n" (char-octet ch 0) (char-octet ch 1) codepoint name)))))))) Each file is named after the XEmacs charset it represents. The CNS files contain more codepoints than those in unicode-consortium/ because they list codepoints above 0xFFFF, those handled by surrogates (supported starting in Windows 2000, I think, but not yet by XEmacs).