Please don't remove any code you don't understand, just comment it out. (That seems to be what you're doing anyway, but I' like to encourage it. Also if when you comment something out, it would help if you leave an "; XEmacs change - Your Name <user(a)org.tld&gt;&quot; comment there so I can ask later why something was done if it's not clear. It'll be a while before I can take a close look at the Mule stuff here. :-( Jan> [What was the exact problem here (I don't have a mule-build Jan> handy). :-( Jan> Is "mule-version" not defined on our mule build does Jan> it not have the right value] We don't have the variable. I don't know what it means, anyway; it's not discussed on the public Mule lists. Jan> Ok, we simply have no Ethoipic support Not entirely true. But I'll take care of it later; please don't remove the code, that's all. Jan> Hmm.. Do we have a slight API incompatibility here, i.e. can Jan> we not take a coding system name in encode-coding-string? Jan> Anyway, it just another minor problem. I'll look at this. Jan> I think is again just a misguided FSF-specific mule test This bothers me; that variable should exist and always be true in Mule, always false in no-mule. I think we should enforce this. Jan> I think was the essential bit... FSF Emacs has a whole bunch Jan> of different names for coding systems. Sigh. I wish they would cut this out. -- University of Tsukuba Tennodai 1-1-1 Tsukuba 305-8573 JAPAN Institute of Policy and Planning Sciences Tel/fax: +81 (298) 53-5091 _________________ _________________ _________________ _________________ What are those straight lines for? "XEmacs rules."

Michael Harnois <mdharnois(a)home.com&gt; writes: I think Nick mentiond that it should be just (- to from). Here's my version slightly differs from Nick's. I didn't give very close look so I would be grateful if it could be merged to Nick's version. diff -ur tmp/lisp/ps-print/ps-mule.el /home/penny/.xemacs/xemacs-packages/lisp/ps-print/ps-mule.el --- tmp/lisp/ps-print/ps-mule.el Tue Aug 1 23:17:28 2000 +++ /home/penny/.xemacs/xemacs-packages/lisp/ps-print/ps-mule.el Thu Nov 30 21:54:31 2000 ＠＠ -143,8 +143,9 ＠＠ ;; For Emacs 20.2 and the earlier version. (eval-and-compile - (if (and (boundp 'mule-version) ; only if mule package is loaded - (not (string< mule-version "4.0"))) + (if (or (and (boundp 'mule-version) ; only if mule package is loaded + (not (string< mule-version "4.0"))) + (featurep 'xemacs)) (progn (defalias 'ps-mule-next-point '1+) (defalias 'ps-mule-chars-in-string 'length) ＠＠ -687,7 +688,9 ＠＠ (cons (ps-mule-next-point from) run-width))) ;; We assume that all characters in this range have the same width. (setq char-width (* char-width (charset-width ps-mule-current-charset))) - (let ((run-width (* (chars-in-region from to) char-width))) + (let ((run-width (* (if (fboundp 'chars-in-region) + (chars-in-region from to) + (abs (- to from)) char-width)))) (if (> run-width ps-width-remaining) (cons (min to (save-excursion ＠＠ -1143,8 +1146,9 ＠＠ ps-mule-font-info-database-ps-bdf) (t ps-mule-font-info-database-default))) - (and (boundp 'enable-multibyte-characters) - enable-multibyte-characters + + (and (or (featurep 'xemacs) (and (boundp 'enable-multibyte-characters) + enable-multibyte-characters)) ;; Initialize `ps-mule-charset-list'. If some characters aren't ;; printable, warn it. (let ((charsets (find-charset-region from to))) ＠＠ -1206,10 +1210,16 ＠＠ (cond ((eq ps-print-control-characters '8-bit) "[^\040-\176]") ((eq ps-print-control-characters 'control-8-bit) - (string-as-multibyte "[^\040-\176\240-\377]")) + (if (featurep 'xemacs) + "[^\040-\176\240-\377]" + (string-as-multibyte "[^\040-\176\240-\377]"))) ((eq ps-print-control-characters 'control) - (string-as-multibyte "[^\040-\176\200-\377]")) - (t (string-as-multibyte "[^\000-\011\013\015-\377")))))) + (if (featurep 'xemacs) + "[^\040-\176\200-\377]" + (string-as-multibyte "[^\040-\176\200-\377]"))) + (t (if (featurep 'xemacs) + "[^\000-\011\013\015-\377]" + (string-as-multibyte "[^\000-\011\013\015-\377]"))))))) ;;;###autoload (defun ps-mule-begin-page () Only in /home/penny/.xemacs/xemacs-packages/lisp/ps-print/: ps-mule.el~ diff -ur tmp/lisp/ps-print/ps-print.el /home/penny/.xemacs/xemacs-packages/lisp/ps-print/ps-print.el --- tmp/lisp/ps-print/ps-print.el Thu Nov 30 04:36:32 2000 +++ /home/penny/.xemacs/xemacs-packages/lisp/ps-print/ps-print.el Thu Nov 30 21:59:09 2000 ＠＠ -1333,13 +1333,16 ＠＠ ;; For Emacs 20.2 and the earlier version. (or (fboundp 'set-buffer-multibyte) + (featurep 'xemacs) (defun set-buffer-multibyte (arg) (setq enable-multibyte-characters arg))) (or (fboundp 'string-as-unibyte) + (featurep 'xemacs) (defun string-as-unibyte (arg) arg)) (or (fboundp 'string-as-multibyte) + (featurep 'xemacs) (defun string-as-multibyte (arg) arg)) (or (fboundp 'char-charset) ＠＠ -3793,7 +3796,9 ＠＠ (defun ps-output-string-prim (string) (insert "(") ;insert start-string delimiter (save-excursion ;insert string - (insert (string-as-unibyte string))) + (insert (if (featurep 'xemacs) + (decode-coding-string string 'binary) + (string-as-unibyte string)))) ;; Find and quote special characters as necessary for PS ;; This skips everything except control chars, non-ASCII chars, (, ) and \. (while (progn (skip-chars-forward " -'*-[]-~") (not (eobp))) ＠＠ -5464,7 +5469,8 ＠＠ (unwind-protect (progn (set-buffer ps-spool-buffer) - (set-buffer-multibyte nil) + (or (featurep 'xemacs) + (set-buffer-multibyte nil)) ;; Get a marker and make it point to the current end of the ;; buffer, If an error occurs, we'll delete everything from Only in /home/penny/.xemacs/xemacs-packages/lisp/ps-print/: ps-print.el~ -- Yoshiki Hayashi