Mercurial > hg > xemacs-beta
comparison lisp/unicode.el @ 4468:a78d697ccd2c
Import and extend GNU's descr-text.el, supporting prefix argument for C-x =
2008-05-25 Aidan Kehoe <kehoea@parhasard.net>
* descr-text.el: New.
Taken from GNU's GPLV2 version of 2007-02-14, with modifications
for XEmacs support and extensions for Unihan.txt support and
db/dbm caches.
* simple.el (what-cursor-position):
Support an optional prefix argument, as does GNU, calling
#'describe-char to giving more detail on the character at point,
notably from UnicodeData and (in our case, optionally) Unihan.txt.
* syntax.el (syntax-after):
Make this available for the sake of #'describe-char.
* mule/mule-cmds.el (iso-2022-control-alist):
Make this available, for the sake of #'encoded-string-description
and #'describe-char.
* mule/mule-cmds.el (encoded-string-description):
Make this available, for the sake of #'describe-char.
* unicode.el (unicode-error-default-translation-table):
Make this a char table of type generic, not of type char. Makes it
possible to have the relevant logic in #'describe-char reasonably
clear; also, and this is undocumented, makes it much easier to
implement #'frob-unicode-errors-region. I should document this,
and revise #'frob-unicode-errors-region.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sun, 25 May 2008 21:11:35 +0200 |
parents | 15d36164ebd7 |
children | b75b075a9041 d402d7b18bd8 017044266245 |
comparison
equal
deleted
inserted
replaced
4467:23ef20edf6ba | 4468:a78d697ccd2c |
---|---|
504 ;; Create all the Unicode error sequences, normally as jit-ucs-charset-0 | 504 ;; Create all the Unicode error sequences, normally as jit-ucs-charset-0 |
505 ;; characters starting at U+200000 (which isn't a valid Unicode code | 505 ;; characters starting at U+200000 (which isn't a valid Unicode code |
506 ;; point). Make them available to user code. | 506 ;; point). Make them available to user code. |
507 (defvar unicode-error-default-translation-table | 507 (defvar unicode-error-default-translation-table |
508 (loop | 508 (loop |
509 with char-table = (make-char-table 'char) | 509 with char-table = (make-char-table 'generic) |
510 for i from ?\x00 to ?\xFF | 510 for i from ?\x00 to ?\xFF |
511 initially (unless (featurep 'mule) (return)) | 511 initially (unless (featurep 'mule) (return)) |
512 do | 512 do |
513 (put-char-table (aref | 513 (put-char-table (aref |
514 ;; #xd800 is the first leading surrogate; | 514 ;; #xd800 is the first leading surrogate; |