emacs-unicode-2: some of the full-width characters should have a ?\| property

[Zhang Wei]

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