diff options
| author | Kenichi Handa | 2008-02-21 01:57:10 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2008-02-21 01:57:10 +0000 |
| commit | 5bc44aa4bd9fb7ee5a12c039757497361cf047b9 (patch) | |
| tree | f77b50bd450e9ee749431635cdcda1039337feaa | |
| parent | 5549f37a37d5cf3a784401e95efeb2a2b982870b (diff) | |
| download | emacs-5bc44aa4bd9fb7ee5a12c039757497361cf047b9.tar.gz emacs-5bc44aa4bd9fb7ee5a12c039757497361cf047b9.zip | |
(ps-mule-font-info-database-bdf): Use
ethio16f-uni.bdf for Ethiopic.
(ps-mule-plot-string): Ignore glyph-string based compositions.
| -rw-r--r-- | lisp/ps-mule.el | 7 |
1 files 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.") | |||
| 276 | (indian-1-column | 276 | (indian-1-column |
| 277 | (normal bdf ("ind1c24-mule.bdf" "mule-indian-1col-24.bdf"))) | 277 | (normal bdf ("ind1c24-mule.bdf" "mule-indian-1col-24.bdf"))) |
| 278 | (ethiopic | 278 | (ethiopic |
| 279 | (normal bdf ("ethio24f-uni.bdf" "ethiomx24f-uni.bdf") unicode-bmp)) | 279 | (normal bdf ("ethio16f-uni.bdf" "ethiomx24f-uni.bdf") unicode-bmp)) |
| 280 | (chinese-cns11643-3 | 280 | (chinese-cns11643-3 |
| 281 | (normal bdf ("cns3-40.bdf" "cns-3-40.bdf"))) | 281 | (normal bdf ("cns3-40.bdf" "cns-3-40.bdf"))) |
| 282 | (chinese-cns11643-4 | 282 | (chinese-cns11643-4 |
| @@ -661,7 +661,10 @@ the sequence." | |||
| 661 | (let* ((average-width (ps-avg-char-width 'ps-font-for-text)) | 661 | (let* ((average-width (ps-avg-char-width 'ps-font-for-text)) |
| 662 | (point (point)) | 662 | (point (point)) |
| 663 | (composition (find-composition from to nil t)) | 663 | (composition (find-composition from to nil t)) |
| 664 | (stop (if composition (car composition) to)) | 664 | (stop (if (and composition |
| 665 | (not (vectorp (aref (nth 2 composition) 0)))) | ||
| 666 | (car composition) | ||
| 667 | to)) | ||
| 665 | (ascii-or-latin-1 "[\000-\377]+") | 668 | (ascii-or-latin-1 "[\000-\377]+") |
| 666 | (run-width 0) | 669 | (run-width 0) |
| 667 | (endpos nil) | 670 | (endpos nil) |