Instantly share code, notes, and snippets.

Embed
What would you like to do?
Patch to utf-tool.el for >= emacs-23.
--- utf-tool.el.orig 2013-02-20 08:17:48.933065400 +0900
+++ utf-tool.el 2013-02-20 08:09:10.473884298 +0900
@@ -62,7 +62,7 @@
(unless
(memq charset '(ascii japanese-jisx0208 katakana-jisx0201))
(if (or (< char 256)
- (memq 'mule-utf-8 (find-coding-systems-region pos (1+ pos)))
+ (memq 'utf-8 (find-coding-systems-region pos (1+ pos)))
(get-char-property pos 'untranslated-utf-8))
(setq unicode (or (get-char-property pos 'untranslated-utf-8)
(encode-char char 'ucs))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment