(ps-mule-show-warning): If a character is in

ps-print-translation-table, don't treat it as non-printable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 288c8cd908804d0516b99d5cda307c65c8494bf9..b9cf544b27b1ea397c846e5c1991ccc0bc38c438 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-09-30  Kenichi Handa  <handa@m17n.org>
+
+       * 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  <david@dponce.com>
 
        * tree-widget.el (tree-widget-themes-load-path): New variable.

diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el
index 748cfd560b4257af69840f6a29c64809ca49e456..1be2eafba9d8f3ca6e2dd52c987942d751b85c5d 100644 (file)
--- 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