1533 |
ps-current-font (1+ ps-current-font))))))) |
ps-current-font (1+ ps-current-font))))))) |
1534 |
|
|
1535 |
;; 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 |
1536 |
;; and glyphs for the first occurance of such characters. |
;; and glyphs for the first occurrence of such characters. |
1537 |
(if (and ps-mule-header-charsets |
(if (and ps-mule-header-charsets |
1538 |
(not (eq (car ps-mule-header-charsets) 'latin-iso8859-1))) |
(not (eq (car ps-mule-header-charsets) 'latin-iso8859-1))) |
1539 |
(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) |