diff options
| author | Kenichi Handa <handa@m17n.org> | 2005-09-30 07:01:40 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2005-09-30 07:01:40 +0000 |
| commit | 070860c37ab005c2c94276e2230c4bfe67f50c14 (patch) | |
| tree | f42110db7f6d843e34ffe465e3a0eca3e4d36205 /lisp/ps-mule.el | |
| parent | 01c5577a875e794fbf2b18a961efb6316afc0e55 (diff) | |
| download | emacs-070860c37ab005c2c94276e2230c4bfe67f50c14.tar.gz | |
(ps-mule-show-warning): If a character is in
ps-print-translation-table, don't treat it as non-printable.
Diffstat (limited to 'lisp/ps-mule.el')
| -rw-r--r-- | lisp/ps-mule.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 |