(locate-dominating-stop-dir-regexp): Stop searching

when a UNC mount point is reached.

diff --git a/lisp/files.el b/lisp/files.el
index 2ab2e88161f5f340122d66a6fe14e2caae76bd2b..7c792c96c52a9a1c408b8fc263b383e9f97793c2 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -742,13 +742,14 @@ PATH-AND-SUFFIXES is a pair of lists, (DIRECTORIES . SUFFIXES)."
 (make-obsolete 'locate-file-completion 'locate-file-completion-table "23.1")
 
 (defvar locate-dominating-stop-dir-regexp
-  "\\`\\(?:[\\/][\\/]\\|/\\(?:net\\|afs\\|\\.\\.\\.\\)/\\)\\'"
+  "\\`\\(?:[\\/][\\/][^\\/]+\\|/\\(?:net\\|afs\\|\\.\\.\\.\\)/\\)\\'"
   "Regexp of directory names which stop the search in `locate-dominating-file'.
 Any directory whose name matches this regexp will be treated like
 a kind of root directory by `locate-dominating-file' which will stop its search
 when it bumps into it.
 The default regexp prevents fruitless and time-consuming attempts to find
-special files in directories in which filenames are interpreted as hostnames.")
+special files in directories in which filenames are interpreted as hostnames,
+or mount points potentially requiring authentication as a different user.")
 
 ;; (defun locate-dominating-files (file regexp)
 ;;   "Look up the directory hierarchy from FILE for a file matching REGEXP.