Perhaps we should do this:
*** c:/Emacs/lisp/international/characters.el Thu Oct 26 23:03:06 2006
--- d:/download/emacs--unicode--0/lisp/international/characters.el Sun Oct
29 00:42:10 2006
***************
*** 1013,1029 ****
;; 2: East Asian Wide and Full-width characters.
(let ((l '((#x1100 . #x115F)
(#x2329 . #x232A)
(#x2E80 . #x303E)
(#x3040 . #xA4CF)
(#xAC00 . #xD7A3)
(#xF900 . #xFAFF)
(#xFE30 . #xFE6F)
(#xFFE0 . #xFFE6)
(#x20000 . #x2FFFF)
(#x30000 . #x3FFFF))))
(dolist (elt l)
! (set-char-table-range char-width-table elt 2)))
;; Other double width
;;(map-charset-chars
--- 1013,1033 ----
;; 2: East Asian Wide and Full-width characters.
(let ((l '((#x1100 . #x115F)
+ (#x2010 . #x2027)
+ (#x2030 . #x205E)
(#x2329 . #x232A)
(#x2E80 . #x303E)
(#x3040 . #xA4CF)
(#xAC00 . #xD7A3)
(#xF900 . #xFAFF)
(#xFE30 . #xFE6F)
+ (#xFF01 . #xFF60)
(#xFFE0 . #xFFE6)
(#x20000 . #x2FFFF)
(#x30000 . #x3FFFF))))
(dolist (elt l)
! (set-char-table-range char-width-table elt 2)
! (modify-category-entry elt ?\|)))
;; Other double width
;;(map-charset-chars
_______________________________________________
emacs-pretest-bug mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
