(locate-dominating-file): New function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f8a38266120fe8d08550eadea1f4eb523551e8c1..daa0bbbdbe7152cbdeb8ed835d69ea942ad58015 100644 (file)
--- 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 ed76e16b1839ab7d7de5ba7a81f417f59607f527..631e75f98d0ce36f464eececc36326910852baca 100644 (file)
--- 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'."