From: Jason Rumney <jasonr@gnu.org>
Date: Mon, 30 Mar 2009 13:48:06 +0000 (+0000)
Subject: (locate-dominating-stop-dir-regexp): Stop searching
X-Git-Tag: emacs-pretest-23.0.92~9
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=48981b8b8111579ee9373e5084209958e224e72a;p=emacs.git

(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 2ab2e88161f..7c792c96c52 100644
--- 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.