From: Kenichi Handa <handa@m17n.org>
Date: Thu, 21 Feb 2008 01:57:10 +0000 (+0000)
Subject: (ps-mule-font-info-database-bdf): Use
X-Git-Tag: emacs-pretest-23.0.90~7829
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5bc44aa4bd9fb7ee5a12c039757497361cf047b9;p=emacs.git

(ps-mule-font-info-database-bdf): Use
ethio16f-uni.bdf for Ethiopic.
(ps-mule-plot-string): Ignore glyph-string based compositions.
---

diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el
index e0bd93070f8..f3bbd534849 100644
--- a/lisp/ps-mule.el
+++ b/lisp/ps-mule.el
@@ -276,7 +276,7 @@ Currently, data for Japanese and Korean PostScript printers are listed.")
     (indian-1-column
      (normal bdf ("ind1c24-mule.bdf" "mule-indian-1col-24.bdf")))
     (ethiopic
-     (normal bdf ("ethio24f-uni.bdf" "ethiomx24f-uni.bdf") unicode-bmp))
+     (normal bdf ("ethio16f-uni.bdf" "ethiomx24f-uni.bdf") unicode-bmp))
     (chinese-cns11643-3
      (normal bdf ("cns3-40.bdf" "cns-3-40.bdf")))
     (chinese-cns11643-4
@@ -661,7 +661,10 @@ the sequence."
   (let* ((average-width (ps-avg-char-width 'ps-font-for-text))
 	 (point (point))
 	 (composition (find-composition from to nil t))
-	 (stop (if composition (car composition) to))
+	 (stop (if (and composition
+			(not (vectorp (aref (nth 2 composition) 0))))
+		   (car composition)
+		 to))
 	 (ascii-or-latin-1 "[\000-\377]+")
 	 (run-width 0)
 	 (endpos nil)