[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Recent change to file-chase-links has a bug
From: |
Kai Großjohann |
Subject: |
Re: Recent change to file-chase-links has a bug |
Date: |
Wed, 09 Apr 2003 15:49:40 +0200 |
User-agent: |
Gnus/5.090018 (Oort Gnus v0.18) Emacs/21.3.50 (gnu/linux) |
Kenichi Handa <address@hidden> writes:
> Now the code is as below:
>
> (defun file-chase-links (filename &optional limit)
> "Chase links in FILENAME until a name that is not a link.
> Unlike `file-truename', this does not check whether a parent
> directory name is a symbolic link.
> If the optional argument LIMIT is a number,
> it means chase no more than that many links and then stop."
> (let (tem (newname filename)
> (count 0)
> (max (max limit 100)))
Wild guess: Richard meant (or limit 100) instead of (max limit 100).
> (while (and (or (null limit) (< count limit))
> (setq tem (file-symlink-p newname)))
> (save-match-data
> (if (= count max)
> (error "Apparent cycle of symbolic links for %s" filename))
--
A preposition is not a good thing to end a sentence with.