From a6c08bee7b28d9dde16eb3af64b8794875a77e1e Mon Sep 17 00:00:00 2001
From: Daiki Ueno <ueno@unixuser.org>
Date: Thu, 1 Sep 2011 15:08:43 +0900
Subject: [PATCH] Allow 0xXXXX in mim2remap.el.

---
 examples/eekxml/mim2remap.el | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/examples/eekxml/mim2remap.el b/examples/eekxml/mim2remap.el
index 39dc8411..4a74a7eb 100644
--- 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))))))
 
-- 
GitLab