diff options
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/ps-mule.el | 5 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 78514349768..eec6cba623a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -4,6 +4,8 @@ | |||
| 4 | ps-print-translation-table. | 4 | ps-print-translation-table. |
| 5 | (ps-mule-begin-job): Call find-charset-region/string with | 5 | (ps-mule-begin-job): Call find-charset-region/string with |
| 6 | ps-print-translation-table. | 6 | ps-print-translation-table. |
| 7 | (ps-mule-printable-p): Return t if CHARSET is ascii or | ||
| 8 | latin-iso8859-1. | ||
| 7 | 9 | ||
| 8 | * ps-print.el (ps-print-translation-table): New variable. | 10 | * ps-print.el (ps-print-translation-table): New variable. |
| 9 | (ps-plot-region): Translate characters by | 11 | (ps-plot-region): Translate characters by |
diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el index 3f66ba2368f..e0e9268c3de 100644 --- a/lisp/ps-mule.el +++ b/lisp/ps-mule.el | |||
| @@ -511,7 +511,10 @@ element of the list." | |||
| 511 | 511 | ||
| 512 | (defsubst ps-mule-printable-p (charset) | 512 | (defsubst ps-mule-printable-p (charset) |
| 513 | "Non-nil if characters in CHARSET is printable." | 513 | "Non-nil if characters in CHARSET is printable." |
| 514 | (ps-mule-get-font-spec charset 'normal)) | 514 | ;; ASCII and Latin-1 are always printable. |
| 515 | (or (eq charset 'ascii) | ||
| 516 | (eq charset 'latin-iso8859-1) | ||
| 517 | (ps-mule-get-font-spec charset 'normal))) | ||
| 515 | 518 | ||
| 516 | (defconst ps-mule-external-libraries | 519 | (defconst ps-mule-external-libraries |
| 517 | '((builtin nil nil | 520 | '((builtin nil nil |