Allow 0xXXXX in mim2remap.el.
This commit is contained in:
@ -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))))))
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user