Additional double width specifications.

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index 01665440f1cd7f5b0a2145868fc54e8064a34018..513209b27520c937a27872c50774df6eab15a1b2 100644 (file)
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -1069,7 +1069,20 @@
 (map-charset-chars
  #'(lambda (range ignore) (set-char-table-range char-width-table range 2))
  'japanese-jisx0213-2)
- 
+
+;; Other double width
+(map-charset-chars
+ (lambda (range ignore) (set-char-table-range char-width-table range 2))
+ 'ethiopic)
+(map-charset-chars
+ (lambda (range ignore) (set-char-table-range char-width-table range 2))
+ 'tibetan)
+(map-charset-chars
+ (lambda (range ignore) (set-char-table-range char-width-table range 2))
+ 'indian-2-column)
+(map-charset-chars
+ (lambda (range ignore) (set-char-table-range char-width-table range 2))
+ 'arabic-2-column)
 
 ;;; Local Variables:
 ;;; coding: utf-8-emacs