Preserve symbol attributes when serializing/deserializing XML.

2011-08-30 17:22:25 +09:00
parent b02ae1b7cc
commit 3777620574
6 changed files with 83 additions and 17 deletions
--- a/examples/eekxml/mim2remap.el
+++ b/examples/eekxml/mim2remap.el
@ -149,9 +149,10 @@
 		      (car from)
 		    (or (mim2remap--char-to-keyname (aref from 0))
 			(error "No keyname for %c" (aref from 0))))
-		  (if (characterp to)
-		      (list (cons :text (char-to-string to)))
-		    (list (cons :text to))))))
+		  (list (cons :text (if (characterp to)
+					(char-to-string to)
+				      to))
+			(cons :category 'letter)))))
 	(cdr sexp))))))

 (defun batch-mim2remap ()