824 |
|
|
825 |
Where ENDPOS is the end position of the sequence and RUN-WIDTH is the width of |
Where ENDPOS is the end position of the sequence and RUN-WIDTH is the width of |
826 |
the sequence." |
the sequence." |
827 |
(setq ps-mule-current-charset (charset-after from)) |
(let ((ch (char-after from))) |
828 |
|
(setq ps-mule-current-charset |
829 |
|
(char-charset (or (aref ps-print-translation-table ch) ch)))) |
830 |
(let* ((wrappoint (ps-mule-find-wrappoint |
(let* ((wrappoint (ps-mule-find-wrappoint |
831 |
from to (ps-avg-char-width 'ps-font-for-text))) |
from to (ps-avg-char-width 'ps-font-for-text))) |
832 |
(to (car wrappoint)) |
(to (car wrappoint)) |
834 |
(ps-font-alist 'ps-font-for-text)))) |
(ps-font-alist 'ps-font-for-text)))) |
835 |
(font-spec (ps-mule-get-font-spec ps-mule-current-charset font-type)) |
(font-spec (ps-mule-get-font-spec ps-mule-current-charset font-type)) |
836 |
(string (buffer-substring-no-properties from to))) |
(string (buffer-substring-no-properties from to))) |
837 |
|
(dotimes (i (length string)) |
838 |
|
(let ((ch (aref ps-print-translation-table (aref string i)))) |
839 |
|
(if ch |
840 |
|
(aset string i ch)))) |
841 |
(cond |
(cond |
842 |
((= from to) |
((= from to) |
843 |
;; We can't print any more characters in the current line. |
;; We can't print any more characters in the current line. |
1475 |
(setq ps-mule-charset-list |
(setq ps-mule-charset-list |
1476 |
(delq 'ascii (delq 'eight-bit-control |
(delq 'ascii (delq 'eight-bit-control |
1477 |
(delq 'eight-bit-graphic |
(delq 'eight-bit-graphic |
1478 |
(find-charset-region from to)))) |
(find-charset-region |
1479 |
|
from to ps-print-translation-table)))) |
1480 |
ps-mule-header-charsets |
ps-mule-header-charsets |
1481 |
(delq 'ascii (delq 'eight-bit-control |
(delq 'ascii (delq 'eight-bit-control |
1482 |
(delq 'eight-bit-graphic |
(delq 'eight-bit-graphic |
1483 |
(find-charset-string |
(find-charset-string |
1484 |
(mapconcat |
(mapconcat |
1485 |
'identity header-footer-list "")))))) |
'identity header-footer-list "") |
1486 |
|
ps-print-translation-table))))) |
1487 |
(dolist (cs ps-mule-charset-list) |
(dolist (cs ps-mule-charset-list) |
1488 |
(or (ps-mule-printable-p cs) |
(or (ps-mule-printable-p cs) |
1489 |
(push cs unprintable-charsets))) |
(push cs unprintable-charsets))) |