comparison lisp/international/ucs-tables.el @ 54642:abb31042a0e6

(ucs-insert): Fix the error message.

54641:77a99ef5c0ae

(defun ucs-insert (arg)
  "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)))))
    (if c
	(insert c)
      (error "Character can't be decoded to UCS"))))

;;; Dealing with non-8859 character sets.

;; We only set up translation on encoding to utf-8.  Also translation
;; tables ucs-CS-encode-table are constructed for some coding systems

54642:abb31042a0e6

(defun ucs-insert (arg)
  "Insert the Emacs character representation of the given Unicode.
Interactively, prompts for a hex string giving the code."
  (interactive "sUnicode (hex): ")
  (or (integerp arg)
      (setq arg (string-to-number arg 16)))
  (let ((c (decode-char 'ucs arg )))
    (if c
	(insert c)
      (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.

;; We only set up translation on encoding to utf-8.  Also translation
;; tables ucs-CS-encode-table are constructed for some coding systems