Thanks,
I have committed a compatibility layer for this into CVS.
Eric
>>> Andrey Slusar <anray@...> seems to think that:
>
>Hi,
>
>subst-char-in-string is not found on the XEmacs <= 21.4
>Patch is defined this function:
>
>--8<---------------cut here---------------start------------->8---
>--- semanticdb-file.el.orig Sat Oct 16 04:59:32 2004
>+++ semanticdb-file.el Sat Oct 16 05:49:44 2004
>@@ -397,6 +397,22 @@
> (apply #'concat (nreverse matches)))))
>
> )
>+;; subst-char-in-string is not found on the XEmacs <= 21.4. Provide
>+;; here for compatibility.
>+
>+(if (not (fboundp 'subst-char-in-string))
>+
>+(defun subst-char-in-string (fromchar tochar string &optional inplace)
>+ "Replace FROMCHAR with TOCHAR in STRING each time it occurs.
>+Unless optional argument INPLACE is non-nil, return a new string."
>+ (let ((i (length string))
>+ (newstr (if inplace string (copy-sequence string))))
>+ (while (> i 0)
>+ (setq i (1- i))
>+ (if (eq (aref newstr i) fromchar)
>+ (aset newstr i tochar)))
>+ newstr))
>+)
>
> (provide 'semanticdb-file)
>
>--8<---------------cut here---------------end--------------->8---
>
--
Eric Ludlam: zappo@..., eric@...
Home: http://www.ludlam.net Siege: http://www.siege-engine.com
Emacs: http://cedet.sourceforge.net GNU: http://www.gnu.org
|