/[emacs]/emacs/lisp/ps-mule.el
ViewVC logotype

Diff of /emacs/lisp/ps-mule.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.37 by handa, Tue Feb 22 06:20:41 2005 UTC revision 1.38 by handa, Tue Mar 29 05:07:16 2005 UTC
# Line 824  Returns the value: Line 824  Returns the value:
824    
825  Where ENDPOS is the end position of the sequence and RUN-WIDTH is the width of  Where ENDPOS is the end position of the sequence and RUN-WIDTH is the width of
826  the sequence."  the sequence."
827    (setq ps-mule-current-charset (charset-after from))    (let ((ch (char-after from)))
828        (setq ps-mule-current-charset
829              (char-charset (or (aref ps-print-translation-table ch) ch))))
830    (let* ((wrappoint (ps-mule-find-wrappoint    (let* ((wrappoint (ps-mule-find-wrappoint
831                       from to (ps-avg-char-width 'ps-font-for-text)))                       from to (ps-avg-char-width 'ps-font-for-text)))
832           (to (car wrappoint))           (to (car wrappoint))
# Line 832  the sequence." Line 834  the sequence."
834                                (ps-font-alist 'ps-font-for-text))))                                (ps-font-alist 'ps-font-for-text))))
835           (font-spec (ps-mule-get-font-spec ps-mule-current-charset font-type))           (font-spec (ps-mule-get-font-spec ps-mule-current-charset font-type))
836           (string (buffer-substring-no-properties from to)))           (string (buffer-substring-no-properties from to)))
837        (dotimes (i (length string))
838          (let ((ch (aref ps-print-translation-table (aref string i))))
839            (if ch
840                (aset string i ch))))
841      (cond      (cond
842       ((= from to)       ((= from to)
843        ;; We can't print any more characters in the current line.        ;; We can't print any more characters in the current line.
# Line 1469  This checks if all multi-byte characters Line 1475  This checks if all multi-byte characters
1475           (setq ps-mule-charset-list           (setq ps-mule-charset-list
1476                 (delq 'ascii (delq 'eight-bit-control                 (delq 'ascii (delq 'eight-bit-control
1477                                    (delq 'eight-bit-graphic                                    (delq 'eight-bit-graphic
1478                                          (find-charset-region from to))))                                          (find-charset-region
1479                                             from to ps-print-translation-table))))
1480                 ps-mule-header-charsets                 ps-mule-header-charsets
1481                 (delq 'ascii (delq 'eight-bit-control                 (delq 'ascii (delq 'eight-bit-control
1482                                    (delq 'eight-bit-graphic                                    (delq 'eight-bit-graphic
1483                                          (find-charset-string                                          (find-charset-string
1484                                           (mapconcat                                           (mapconcat
1485                                            'identity header-footer-list ""))))))                                            'identity header-footer-list "")
1486                                             ps-print-translation-table)))))
1487           (dolist (cs ps-mule-charset-list)           (dolist (cs ps-mule-charset-list)
1488             (or (ps-mule-printable-p cs)             (or (ps-mule-printable-p cs)
1489                 (push cs unprintable-charsets)))                 (push cs unprintable-charsets)))

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26