diff options
| author | Kenichi Handa | 2005-03-29 05:48:10 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2005-03-29 05:48:10 +0000 |
| commit | 51bb954e7ad81cc91cdac77e82a3e73f264ec769 (patch) | |
| tree | 565dfd47deffef7d9aeb9cbe35be05902758e336 | |
| parent | eab4bb89764e1b5778335118f1999bdd1b1078ab (diff) | |
| download | emacs-51bb954e7ad81cc91cdac77e82a3e73f264ec769.tar.gz emacs-51bb954e7ad81cc91cdac77e82a3e73f264ec769.zip | |
(ps-mule-printable-p): Return t if CHARSET is ascii or
latin-iso8859-1.
| -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 |