> infinite loop (escapable with C-g)
>
> Is it a problem with me, or with XEmacs (21.5-b1)?
Robert> I get this as well. I haven't tracked it down yet (I haven't looked
Robert> very hard either).
I've already reported the bug:
http://list-archive.xemacs.org/xemacs-beta/200105/msg00239.html
I received no responses. For what it's worth, this patch appears to fix it
(not included in the message above):
--- etags.el~ Fri May 11 20:11:21 2001
+++ etags.el Wed May 23 10:53:57 2001
@@ -193,7 +193,8 @@
;; Parent directories
(when tags-check-parent-directories-for-tag-files
(let ((cur default-directory))
- (while (file-exists-p (setq cur (expand-file-name ".." cur)))
+ (while (and (file-exists-p (setq cur (expand-file-name ".." cur)))
+ (not (equal cur "/..")))
(let ((parent-tag-file (expand-file-name "TAGS" cur)))
(when (file-readable-p parent-tag-file)
(push parent-tag-file result))))))