Mercurial > emacs
comparison lisp/international/ucs-tables.el @ 54643:244826afc178
(ucs-insert): Fix the error message.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 29 Mar 2004 12:05:16 +0000 |
| parents | abb31042a0e6 |
| children | 005901da292a |
comparison
equal
deleted
inserted
replaced
| 54642:abb31042a0e6 | 54643:244826afc178 |
|---|---|
| 1247 "Insert the Emacs character representation of the given Unicode. | 1247 "Insert the Emacs character representation of the given Unicode. |
| 1248 Interactively, prompts for a hex string giving the code." | 1248 Interactively, prompts for a hex string giving the code." |
| 1249 (interactive "sUnicode (hex): ") | 1249 (interactive "sUnicode (hex): ") |
| 1250 (or (integerp arg) | 1250 (or (integerp arg) |
| 1251 (setq arg (string-to-number arg 16))) | 1251 (setq arg (string-to-number arg 16))) |
| 1252 (let ((c (decode-char 'ucs arg ))) | 1252 (let ((c (decode-char 'ucs arg))) |
| 1253 (if c | 1253 (if c |
| 1254 (insert c) | 1254 (insert c) |
| 1255 (if (or (< arg 0) (> arg #x10FFFF)) | 1255 (if (or (< arg 0) (> arg #x10FFFF)) |
| 1256 (error "Not a Unicode character code: 0x%X" arg) | 1256 (error "Not a Unicode character code: 0x%X" arg) |
| 1257 (error "Character U+%04X is not yet supported" arg))))) | 1257 (error "Character U+%04X is not yet supported" arg))))) |