Mercurial > emacs

changeset 91996:a4c135399649

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ps-mule-font-info-database-bdf): Use ethio16f-uni.bdf for Ethiopic. (ps-mule-plot-string): Ignore glyph-string based compositions.
author Kenichi Handa <handa@m17n.org>
date Thu, 21 Feb 2008 01:57:10 +0000
parents 9728b70117ff
children 17b9e01fbc76
files lisp/ps-mule.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ps-mule.el	Wed Feb 20 23:42:25 2008 +0000
+++ b/lisp/ps-mule.el	Thu Feb 21 01:57:10 2008 +0000
@@ -276,7 +276,7 @@
     (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 @@
   (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)