Mercurial > emacs
comparison lisp/international/mule-cmds.el @ 91778:e875ea8ab4d2
(ucs-insert): Inherit surrounding properties like self-insert-command.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 11 Feb 2008 17:40:11 +0000 |
| parents | 88dc1f9f4da0 |
| children | 0ae97cb23ed8 |
comparison
equal
deleted
inserted
replaced
| 91777:ccba4c75c028 | 91778:e875ea8ab4d2 |
|---|---|
| 2852 (interactive "sUnicode (hex): ") | 2852 (interactive "sUnicode (hex): ") |
| 2853 (or (integerp arg) | 2853 (or (integerp arg) |
| 2854 (setq arg (string-to-number arg 16))) | 2854 (setq arg (string-to-number arg 16))) |
| 2855 (if (or (< arg 0) (> arg #x10FFFF)) | 2855 (if (or (< arg 0) (> arg #x10FFFF)) |
| 2856 (error "Not a Unicode character code: 0x%X" arg)) | 2856 (error "Not a Unicode character code: 0x%X" arg)) |
| 2857 (insert arg)) | 2857 (insert-and-inherit arg)) |
| 2858 | 2858 |
| 2859 | 2859 |
| 2860 ;; arch-tag: b382c432-4b36-460e-bf4c-05efd0bb18dc | 2860 ;; arch-tag: b382c432-4b36-460e-bf4c-05efd0bb18dc |
| 2861 ;;; mule-cmds.el ends here | 2861 ;;; mule-cmds.el ends here |