Mercurial > emacs
comparison lisp/international/mule-cmds.el @ 97263:e76de9fd17e3
* international/mule-cmds.el (read-char-by-name):
Check UCS names with `assoc-string' and case folding.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 04 Aug 2008 13:35:02 +0000 |
| parents | a9b68f965d97 |
| children | 358ab4e4f102 |
comparison
equal
deleted
inserted
replaced
| 97262:fdf8e9052078 | 97263:e76de9fd17e3 |
|---|---|
| 2875 ((string-match "^[0-9a-fA-F]+$" input) | 2875 ((string-match "^[0-9a-fA-F]+$" input) |
| 2876 (string-to-number input 16)) | 2876 (string-to-number input 16)) |
| 2877 ((string-match "^#" input) | 2877 ((string-match "^#" input) |
| 2878 (read input)) | 2878 (read input)) |
| 2879 (t | 2879 (t |
| 2880 (cdr (assoc input (ucs-names))))))) | 2880 (cdr (assoc-string input (ucs-names) t)))))) |
| 2881 | 2881 |
| 2882 (defun ucs-insert (arg) | 2882 (defun ucs-insert (arg) |
| 2883 "Insert a character of the given Unicode code point. | 2883 "Insert a character of the given Unicode code point. |
| 2884 Interactively, prompts for a Unicode character name or a hex number | 2884 Interactively, prompts for a Unicode character name or a hex number |
| 2885 using `read-char-by-name'." | 2885 using `read-char-by-name'." |