Skip to content

Instantly share code, notes, and snippets.

@atton
Created March 16, 2014 09:18
Show Gist options
  • Save atton/9580569 to your computer and use it in GitHub Desktop.
Save atton/9580569 to your computer and use it in GitHub Desktop.
; east asian ambiguous character table
(defun east-asian-ambiguous-characters ()
'(
(#x00A1 . #x00A1) (#x00A4 . #x00A4) (#x00A7 . #x00A8)
(#x00AA . #x00AA) (#x00AD . #x00AE) (#x00B0 . #x00B4)
(#x00B6 . #x00BA) (#x00BC . #x00BF) (#x00C6 . #x00C6)
(#x00D0 . #x00D0) (#x00D7 . #x00D8) (#x00DE . #x00E1)
(#x00E6 . #x00E6) (#x00E8 . #x00EA) (#x00EC . #x00ED)
(#x00F0 . #x00F0) (#x00F2 . #x00F3) (#x00F7 . #x00FA)
(#x00FC . #x00FC) (#x00FE . #x00FE) (#x0101 . #x0101)
(#x0111 . #x0111) (#x0113 . #x0113) (#x011B . #x011B)
(#x0126 . #x0127) (#x012B . #x012B) (#x0131 . #x0133)
(#x0138 . #x0138) (#x013F . #x0142) (#x0144 . #x0144)
(#x0148 . #x014B) (#x014D . #x014D) (#x0152 . #x0153)
(#x0166 . #x0167) (#x016B . #x016B) (#x01CE . #x01CE)
(#x01D0 . #x01D0) (#x01D2 . #x01D2) (#x01D4 . #x01D4)
(#x01D6 . #x01D6) (#x01D8 . #x01D8) (#x01DA . #x01DA)
(#x01DC . #x01DC) (#x0251 . #x0251) (#x0261 . #x0261)
(#x02C4 . #x02C4) (#x02C7 . #x02C7) (#x02C9 . #x02CB)
(#x02CD . #x02CD) (#x02D0 . #x02D0) (#x02D8 . #x02DB)
(#x02DD . #x02DD) (#x02DF . #x02DF) (#x0300 . #x036F)
(#x0391 . #x03A9) (#x03B1 . #x03C1) (#x03C3 . #x03C9)
(#x0401 . #x0401) (#x0410 . #x044F) (#x0451 . #x0451)
(#x2010 . #x2010) (#x2013 . #x2016) (#x2018 . #x2019)
(#x201C . #x201D) (#x2020 . #x2022) (#x2024 . #x2027)
(#x2030 . #x2030) (#x2032 . #x2033) (#x2035 . #x2035)
(#x203B . #x203B) (#x203E . #x203E) (#x2074 . #x2074)
(#x207F . #x207F) (#x2081 . #x2084) (#x20AC . #x20AC)
(#x2103 . #x2103) (#x2105 . #x2105) (#x2109 . #x2109)
(#x2113 . #x2113) (#x2116 . #x2116) (#x2121 . #x2122)
(#x2126 . #x2126) (#x212B . #x212B) (#x2153 . #x2154)
(#x215B . #x215E) (#x2160 . #x216B) (#x2170 . #x2179)
(#x2190 . #x2199) (#x21B8 . #x21B9) (#x21D2 . #x21D2)
(#x21D4 . #x21D4) (#x21E7 . #x21E7) (#x2200 . #x2200)
(#x2202 . #x2203) (#x2207 . #x2208) (#x220B . #x220B)
(#x220F . #x220F) (#x2211 . #x2211) (#x2215 . #x2215)
(#x221A . #x221A) (#x221D . #x2220) (#x2223 . #x2223)
(#x2225 . #x2225) (#x2227 . #x222C) (#x222E . #x222E)
(#x2234 . #x2237) (#x223C . #x223D) (#x2248 . #x2248)
(#x224C . #x224C) (#x2252 . #x2252) (#x2260 . #x2261)
(#x2264 . #x2267) (#x226A . #x226B) (#x226E . #x226F)
(#x2282 . #x2283) (#x2286 . #x2287) (#x2295 . #x2295)
(#x2299 . #x2299) (#x22A5 . #x22A5) (#x22BF . #x22BF)
(#x2312 . #x2312) (#x2460 . #x24E9) (#x24EB . #x254B)
(#x2550 . #x2573) (#x2580 . #x258F) (#x2592 . #x2595)
(#x25A0 . #x25A1) (#x25A3 . #x25A9) (#x25B2 . #x25B3)
(#x25B6 . #x25B7) (#x25BC . #x25BD) (#x25C0 . #x25C1)
(#x25C6 . #x25C8) (#x25CB . #x25CB) (#x25CE . #x25D1)
(#x25E2 . #x25E5) (#x25EF . #x25EF) (#x2605 . #x2606)
(#x2609 . #x2609) (#x260E . #x260F) (#x2614 . #x2615)
(#x261C . #x261C) (#x261E . #x261E) (#x2640 . #x2640)
(#x2642 . #x2642) (#x2660 . #x2661) (#x2663 . #x2665)
(#x2667 . #x266A) (#x266C . #x266D) (#x266F . #x266F)
(#x273D . #x273D) (#x2776 . #x277F) (#xE000 . #xF8FF)
(#xFE00 . #xFE0F) (#xFFE0 . #xFFE6) (#xFFFD . #xFFFD)))
; setting function
(defun set-east-asian-ambiguous-width (width)
(cond ((= emacs-major-version 22) (set-east-asian-ambiguous-width-22 width))
((> emacs-major-version 22) (set-east-asian-ambiguous-width-23 width))))
; for emacs 22
(defun set-east-asian-ambiguous-width-22 (width)
(if (= width 2)
(utf-translate-cjk-set-unicode-range (east-asian-ambiguous-characters))))
; for over 23 (checked work in emacs 24)
(defun set-east-asian-ambiguous-width-23 (width)
(while (char-table-parent char-width-table)
(setq char-width-table (char-table-parent char-width-table)))
(let ((table (make-char-table nil)))
(dolist (range (east-asian-ambiguous-characters))
(set-char-table-range table range width))
(optimize-char-table table)
(set-char-table-parent table char-width-table)
(setq char-width-table table)))
(set-east-asian-ambiguous-width 2)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment