s3rius/squeekboard
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Allow 0xXXXX in mim2remap.el.

Browse Source
This commit is contained in:
Daiki Ueno
2011-09-01 15:08:43 +09:00
parent c2d2c8660f
commit a6c08bee7b
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
examples/eekxml/mim2remap.el
View File

@ -151,7 +151,16 @@
(error "No keyname for %c" (aref from 0)))) (error "No keyname for %c" (aref from 0))))
(list (cons :text (if (characterp to) (list (cons :text (if (characterp to)
(char-to-string 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))))) (cons :category 'letter)))))
(cdr sexp)))))) (cdr sexp))))))