aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog2
-rw-r--r--lisp/ps-mule.el5
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