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 |