From 5bc44aa4bd9fb7ee5a12c039757497361cf047b9 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 21 Feb 2008 01:57:10 +0000 Subject: [PATCH] (ps-mule-font-info-database-bdf): Use ethio16f-uni.bdf for Ethiopic. (ps-mule-plot-string): Ignore glyph-string based compositions. --- lisp/ps-mule.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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) -- 2.39.2