From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 19 Jul 2007 03:29:47 +0000 (+0000)
Subject: (locate-dominating-file): New function.
X-Git-Tag: emacs-pretest-23.0.90~11840
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=418fd37516f85b5b017f9db2a58eb48e20208769;p=emacs.git

(locate-dominating-file): New function.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f8a38266120..daa0bbbdbe7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2007-07-19  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* files.el (locate-dominating-file): New function.
+
 2007-07-18  Michael Albinus  <michael.albinus@gmx.de>
 
 	* progmodes/grep.el (grep-host-defaults-alist): New defvar.
@@ -13,6 +17,7 @@
 	files.  Change two keybindings to point to new function names.
 
 2007-07-18  Juanma Barranquero  <lekktu@gmail.com>
+
 	* follow.el (follow-mode-hook, follow-mode-off-hook, follow-mode)
 	(follow-delete-other-windows-and-split, follow-recenter)
 	(follow-windows-aligned-p, follow-point-visible-all-windows-p)
diff --git a/lisp/files.el b/lisp/files.el
index ed76e16b183..631e75f98d0 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -711,6 +711,24 @@ PATH-AND-SUFFIXES is a pair of lists, (DIRECTORIES . SUFFIXES)."
        ((null action) (try-completion string names))
        (t (test-completion string names))))))
 
+(defun locate-dominating-file (file regexp)
+  "Look up the directory hierarchy from FILE for a file matching REGEXP."
+  (while (and file (not (file-directory-p file)))
+    (setq file (file-name-directory (directory-file-name file))))
+  (catch 'found
+    (let ((user (nth 2 (file-attributes file)))
+          ;; Abbreviate, so as to stop when we cross ~/.
+          (dir (abbreviate-file-name (file-name-as-directory file)))
+          files)
+      (while (and dir (equal user (nth 2 (file-attributes dir))))
+        (if (setq files (directory-files dir 'full regexp))
+            (throw 'found (car files))
+          (if (equal dir
+                     (setq dir (file-name-directory
+                                (directory-file-name dir))))
+              (setq dir nil))))
+      nil)))
+
 (defun executable-find (command)
   "Search for COMMAND in `exec-path' and return the absolute file name.
 Return nil if COMMAND is not found anywhere in `exec-path'."