From 070860c37ab005c2c94276e2230c4bfe67f50c14 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 30 Sep 2005 07:01:40 +0000 Subject: [PATCH] (ps-mule-show-warning): If a character is in ps-print-translation-table, don't treat it as non-printable. --- lisp/ChangeLog | 5 +++++ lisp/ps-mule.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 288c8cd9088..b9cf544b27b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-09-30 Kenichi Handa + + * ps-mule.el (ps-mule-show-warning): If a character is in + ps-print-translation-table, don't treat it as non-printable. + 2005-09-30 David Ponce * tree-widget.el (tree-widget-themes-load-path): New variable. diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el index 748cfd560b4..1be2eafba9d 100644 --- a/lisp/ps-mule.el +++ b/lisp/ps-mule.el @@ -1415,7 +1415,8 @@ FONTTAG should be a string \"/h0\" or \"/h1\"." (goto-char from) (while (and (<= (length char-pos-list) max-unprintable-chars) (re-search-forward "\\cu" to t)) - (push (cons (preceding-char) (1- (point))) char-pos-list)))) + (or (aref ps-print-translation-table (preceding-char)) + (push (cons (preceding-char) (1- (point))) char-pos-list))))) (with-output-to-temp-buffer "*Warning*" (with-current-buffer standard-output (when char-pos-list -- 2.39.2