summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/files.el18
2 files changed, 23 insertions, 0 deletions
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'."