Re: core on wrong replace-match
This fix has been applied to CVS for XEmacs 21.1 and will appear
in XEmacs 21.1.13.
-vin
>>>> On 03 Oct 2000 16:40:05 +0900, Yoshiki Hayashi
<yoshiki(a)xemacs.org> said:
Yoshiki> Norbert Koch <nk(a)LF.net> writes:
> (let ((str "as you like it"))
> (if (string-match "^.*$" str)
> (replace-match "\\U" t nil str)))
>
> The "\\U" might well be pretty dumb, but..
Yoshiki> Here's the patch to fix it.
Yoshiki> It might be straightforward to initialize accum to empty
Yoshiki> string but I'd rather not make temporary strings.
Yoshiki> 2000-10-03 Yoshiki Hayashi <yoshiki(a)xemacs.org>
Yoshiki> * search.c (Freplace_match): Set newtext to an empty string.
Yoshiki> Index: search.c
Yoshiki> ===================================================================
Yoshiki> RCS file: /usr/CVSroot/XEmacs/xemacs/src/search.c,v
Yoshiki> retrieving revision 1.14.2.12
Yoshiki> diff -u -r1.14.2.12 search.c
Yoshiki> --- search.c 2000/09/16 08:50:12 1.14.2.12
Yoshiki> +++ search.c 2000/10/03 07:35:06
Yoshiki> ＠＠ -2083,6 +2083,10 ＠＠
Yoshiki> newtext = accum;
Yoshiki> }
Yoshiki> + /* newtext can be nil. */
Yoshiki> + if (NILP (newtext))
Yoshiki> + newtext = build_string ("");
Yoshiki> +
Yoshiki> if (case_action == all_caps)
Yoshiki> newtext = Fupcase (newtext, buffer);
Yoshiki> else if (case_action == cap_initial)
Yoshiki> --
Yoshiki> Yoshiki Hayashi