Re: New packages uploaded

I apologize for missing this earlier. >>>>> "Yoshiki" == Yoshiki Hayashi <yoshiki(a)xemacs.org&gt; writes: Yoshiki> Andreas Jaeger <aj(a)suse.de&gt; writes: >> Have a look at cvs-status.el: >> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ >> ;; chars sets. Ripped from cvstree >> (defvar cvstree-dstr-2byte-ready >> (when (featurep 'mule) >> (if (boundp 'current-language-environment) >> (string= current-language-environment "Japanese") >> t)) ; mule/emacs-19 >> "*Variable that specifies characters set used in cvstree tree graph. >> If non-nil, 2byte (Japanese?) characters set is used. >> If nil, 1byte characters set is used. >> 2byte characters might be available with Mule or Emacs with Mule extension.") >> >> (defconst cvstree-dstr-char-space >> (if cvstree-dstr-2byte-ready "ESC$B!!ESC(B" " ")) >> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ >> >> There's nothing I can do to satisfy Mule and Non-Mule users. Or do >> you know about any solution? Yoshiki> How about this patch? I haven't tested it but it should Yoshiki> work. I changed JIS X 0208 characters to make-char call and Yoshiki> strings to characters. It would help if someone could explain what exactly the problem is so I can communicate with Stefan. As it stands, not knowing MULE, I don't know what exactly this patch fixes.

Related question: will the patch lose GNU Emacs compatibility?

Yoshiki> Index: cvs-status.el Yoshiki> =================================================================== Yoshiki> RCS file: /usr/CVSroot/XEmacs/xemacs-packages/prog/pcl-cvs/cvs-status.el,v Yoshiki> retrieving revision 2.1 Yoshiki> diff -u -r2.1 cvs-status.el Yoshiki> --- cvs-status.el 2000/04/21 09:58:16 2.1 Yoshiki> +++ cvs-status.el 2000/07/11 08:47:12 Yoshiki> ＠＠ -411,17 +411,29 ＠＠ Yoshiki> 2byte characters might be available with Mule or Emacs with Mule extension.") Yoshiki> (defconst cvstree-dstr-char-space Yoshiki> - (if cvstree-dstr-2byte-ready "$B!!(B" " ")) Yoshiki> + (if cvstree-dstr-2byte-ready Yoshiki> + (make-char 'japanese-jisx0208 33 33) Yoshiki> + ?\ )) Yoshiki> (defconst cvstree-dstr-char-hbar Yoshiki> - (if cvstree-dstr-2byte-ready "$B(,(B" "-")) Yoshiki> + (if cvstree-dstr-2byte-ready Yoshiki> + (make-char 'japanese-jisx0208 40 44) Yoshiki> + ?-)) Yoshiki> (defconst cvstree-dstr-char-vbar Yoshiki> - (if cvstree-dstr-2byte-ready "$B(-(B" "|")) Yoshiki> + (if cvstree-dstr-2byte-ready Yoshiki> + (make-char 'japanese-jisx0208 40 45) Yoshiki> + ?|)) Yoshiki> (defconst cvstree-dstr-char-branch Yoshiki> - (if cvstree-dstr-2byte-ready "$B(2(B" "+")) Yoshiki> + (if cvstree-dstr-2byte-ready Yoshiki> + (make-char 'japanese-jisx0208 40 50) Yoshiki> + ?+)) Yoshiki> (defconst cvstree-dstr-char-eob ;end of branch Yoshiki> - (if cvstree-dstr-2byte-ready "$B(1(B" "`")) Yoshiki> + (if cvstree-dstr-2byte-ready Yoshiki> + (make-char 'japanese-jisx0208 40 49) Yoshiki> + ?`)) Yoshiki> (defconst cvstree-dstr-char-bob ;beginning of branch Yoshiki> - (if cvstree-dstr-2byte-ready "$B(3(B" "+")) Yoshiki> + (if cvstree-dstr-2byte-ready Yoshiki> + (make-char 'japanese-jisx0208 40 51) Yoshiki> + ?+)) Yoshiki> (defun cvs-tag-lessp (tag1 tag2) Yoshiki> (eq (cvs-tag-compare tag1 tag2) 'more2)) Yoshiki> -- Yoshiki> Yoshiki Hayashi -- Cheers =8-} Chipsy Friede, Völkerverständigung und überhaupt blabla