Allow 0xXXXX in mim2remap.el.

2011-09-01 15:08:43 +09:00
parent c2d2c8660f
commit a6c08bee7b
1 changed files with 10 additions and 1 deletions
--- a/examples/eekxml/mim2remap.el
+++ b/examples/eekxml/mim2remap.el
@ -151,7 +151,16 @@
 			(error "No keyname for %c" (aref from 0))))
 		  (list (cons :text (if (characterp to)
 					(char-to-string to)
-				      to))
+				      (if (and (symbolp to)
+					       (string-match
+						"\\`0x\\([0-9A-Fa-f]+\\)"
+						(symbol-name to)))
+					  (char-to-string (string-to-number
+							   (match-string
+							    1
+							    (symbol-name to))
+							   16))
+					to)))
 			(cons :category 'letter)))))
 	(cdr sexp))))))