On Friday, July 30, 2004 at 16:25:18, Angus Lees wrote:
> The `replace-regexp-in-string' implementation in xtla-xemacs.el
> simply calls `replace-in-string'. On my XEmacs (at least), this
> results in an infinite loop - repeatedly appending "rep" to "foo":
>
> (replace-in-string "foo" "$" "rep")
>
> The stacktrace at the end of this mail is one example of this
> happening.
[...]
A {arch}/xtla/xtla--main/xtla--main--0.1/[EMAIL PROTECTED]
M lisp/xtla.el
--- orig/lisp/xtla.el
+++ mod/lisp/xtla.el
@@ -593,7 +593,7 @@
(setq pwd (expand-file-name (concat pwd "/.."))))
(if (file-exists-p (concat pwd "/{arch}/=tagging-method"))
(expand-file-name
- (replace-regexp-in-string "/*$" "/" pwd))
+ (replace-regexp-in-string "/+$" "/" pwd))
(if no-error
nil
(error "%S is not in an arch-managed tree!" location)))))
