well, first of all it's bogus that bytecomp is sticking in that line, as it's not
required.
second, the way to get around that is just to construct the escape sequences at
run time and then decode them, something like
(decode-coding-string (replace-in-string " $B!! (B" " "
(char-to-string
(int-to-char 27))) 'iso2022)
spaces cannot appear between escapes in representing japanese, so it's a good
char to choose to represent an escape.
Andreas Jaeger wrote:
>>>>> rn Torkelsson writes:
rn> Andreas Jaeger <aj(a)suse.de> writes:
>> > Can you please make a new upload of pcl-cvs to?
>> > The current package barfs when used on a non-mule XEmacs. See the
>> > thread:
>>
>> >
http://www.xemacs.org/list-archives/xemacs-beta/200006/msg00249.html
>>
>> > /torkel
>>
>> Ok, I've installed a new XEmacs with a patched cl-macs.el version and
>> rebuild pcl-cvs. I'll upload it soon, please check it yourself.
rn> Still requires mule :-(
rn> ;;; compiled by aj(a)gromit.rhein-neckar.de on Mon Jul 10 17:59:19 2000
rn> ;;; from file /usr/src/cvs/xemacs-packages/prog/pcl-cvs/cvs-status.el
rn> ;;; emacs version 21.1 (patch 10) "Capitol Reef" XEmacs Lucid.
rn> ;;; bytecomp version 2.25 XEmacs; 22-Mar-96.
rn> ;;; optimization is on.
rn> ;;; this file uses opcodes which do not exist in Emacs 19.
rn> (if (and (boundp 'emacs-version)
rn> (or (and (boundp 'epoch::version) epoch::version)
rn> (string-lessp emacs-version "20")))
rn> (error "`cvs-status.el' was compiled for Emacs 20"))
rn> (or (boundp 'current-load-list) (setq current-load-list nil))
rn> (require 'mule)
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?
Andreas
--
Andreas Jaeger
SuSE Labs aj(a)suse.de
private aj(a)arthur.inka.de
--
Ben
In order to save my hands, I am cutting back on my mail. I also write
as succinctly as possible -- please don't be offended. If you send me
mail, you _will_ get a response, but please be patient, especially for
XEmacs-related mail. If you need an immediate response and it is not
apparent in your message, please say so. Thanks for your understanding.
See also
http://www.666.com/ben/chronic-pain/