1559 |
ps-current-font (1+ ps-current-font))))))) |
ps-current-font (1+ ps-current-font))))))) |
1560 |
|
|
1561 |
;; If the header contains non-ASCII and non-Latin1 characters, prepare a font |
;; If the header contains non-ASCII and non-Latin1 characters, prepare a font |
1562 |
;; and glyphs for the first occurance of such characters. |
;; and glyphs for the first occurrence of such characters. |
1563 |
(if (and ps-mule-header-charsets |
(if (and ps-mule-header-charsets |
1564 |
(not (eq (car ps-mule-header-charsets) 'latin-iso8859-1))) |
(not (eq (car ps-mule-header-charsets) 'latin-iso8859-1))) |
1565 |
(let ((font-spec (ps-mule-get-font-spec (car ps-mule-header-charsets) |
(let ((font-spec (ps-mule-get-font-spec (car ps-mule-header-charsets) |