Commit 984d06b3 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(ucs-insert): Fix the error message.

parent f817f028
2004-03-29 Kenichi Handa <handa@m17n.org>
* international/ucs-tables.el (ucs-insert): Fix the error message.
2004-03-29 Kenichi Handa <handa@m17n.org>
* international/mule-util.el (char-displayable-p): Fix generation
......
......@@ -1247,12 +1247,14 @@ unification on input operations."
"Insert the Emacs character representation of the given Unicode.
Interactively, prompts for a hex string giving the code."
(interactive "sUnicode (hex): ")
(let ((c (decode-char 'ucs (if (integerp arg)
arg
(string-to-number arg 16)))))
(or (integerp arg)
(setq arg (string-to-number arg 16)))
(let ((c (decode-char 'ucs arg)))
(if c
(insert c)
(error "Character can't be decoded to UCS"))))
(if (or (< arg 0) (> arg #x10FFFF))
(error "Not a Unicode character code: 0x%X" arg)
(error "Character U+%04X is not yet supported" arg)))))
;;; Dealing with non-8859 character sets.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment