Re: Build failure on M$ (using MSVC): Patch enclosed

[Stefan Monnier]

> diff --git a/lisp/files.el b/lisp/files.el
> index ee5efe4..bb8a021 100644
> --- a/lisp/files.el
> +++ b/lisp/files.el
> @@ -3120,8 +3120,9 @@ If the file is in a registered project, a cons from
>  `project-directory-alist' is returned.
>  Otherwise this returns nil."
>    (let ((dir (file-name-directory file))
> -     (result nil))
> -    (while (and (not (string= dir "/"))
> +        (result nil)
> +        (prevdir nil))
> +    (while (and (not (string= dir prevdir))
>               (not result))
>        (cond
>         ((setq result (assoc dir project-directory-alist))
> @@ -3130,6 +3131,7 @@ Otherwise this returns nil."
>         ((file-exists-p (expand-file-name ".dir-settings.el" dir))
>       (setq result (expand-file-name ".dir-settings.el" dir)))
>         (t
> +        (setq prevdir dir)
>       (setq dir (file-name-directory (directory-file-name dir))))))
>      result))

Actually, why doesn't this code use locate-dominating-file?


        Stefan