diff options
| author | Kenichi Handa | 2006-11-13 01:16:03 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2006-11-13 01:16:03 +0000 |
| commit | cb9e47dd3ac0d159654245fdc4dcf44dd662e38c (patch) | |
| tree | e8ff3571cdcb415855b7db06bb550ac24ff3e3d1 | |
| parent | 238ae8ed2db6ab2d9d3fee37249014aa1b1808d2 (diff) | |
| download | emacs-cb9e47dd3ac0d159654245fdc4dcf44dd662e38c.tar.gz emacs-cb9e47dd3ac0d159654245fdc4dcf44dd662e38c.zip | |
(ucs-insert): Re-implement.
| -rw-r--r-- | lisp/international/mule-cmds.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index bbe219745e9..3eebb3e7b51 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el | |||
| @@ -2784,6 +2784,16 @@ If CODING-SYSTEM can't safely encode CHAR, return nil." | |||
| 2784 | (defvar nonascii-insert-offset 0 "This variable is obsolete.") | 2784 | (defvar nonascii-insert-offset 0 "This variable is obsolete.") |
| 2785 | (defvar nonascii-translation-table nil "This variable is obsolete.") | 2785 | (defvar nonascii-translation-table nil "This variable is obsolete.") |
| 2786 | 2786 | ||
| 2787 | (defun ucs-insert (arg) | ||
| 2788 | "Insert a character of the given Unicode code point. | ||
| 2789 | Interactively, prompts for a hex string giving the code." | ||
| 2790 | (interactive "sUnicode (hex): ") | ||
| 2791 | (or (integerp arg) | ||
| 2792 | (setq arg (string-to-number arg 16))) | ||
| 2793 | (if (or (< arg 0) (> arg #x10FFFF)) | ||
| 2794 | (error "Not a Unicode character code: 0x%X" arg)) | ||
| 2795 | (insert arg)) | ||
| 2796 | |||
| 2787 | 2797 | ||
| 2788 | ;; arch-tag: b382c432-4b36-460e-bf4c-05efd0bb18dc | 2798 | ;; arch-tag: b382c432-4b36-460e-bf4c-05efd0bb18dc |
| 2789 | ;;; mule-cmds.el ends here | 2799 | ;;; mule-cmds.el ends here |