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 emacs-pretest-bug@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug