Re: New packages uploaded
I apologize for missing this earlier.
>>>> "Yoshiki" == Yoshiki Hayashi
<yoshiki(a)xemacs.org> writes:
Yoshiki> Andreas Jaeger <aj(a)suse.de> 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