Commit 5f73367d authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(flymake-find-buildfile): Remove invariant arg `dirs'. Adjust callers.

parent 8f9efec8
2006-01-09 Stefan Monnier <>
* progmodes/flymake.el (flymake-find-buildfile): Remove invariant arg
`dirs'. Adjust callers.
2006-01-09 John Paul Wallington <>
* cus-edit.el (custom-comment) <defface>: Add TTY definitions.
......@@ -312,14 +312,13 @@ Return nil if we cannot, non-nil if we can."
(defun flymake-clear-buildfile-cache ()
(clrhash flymake-find-buildfile-cache))
(defun flymake-find-buildfile (buildfile-name source-dir-name dirs)
(defun flymake-find-buildfile (buildfile-name source-dir-name)
"Find buildfile starting from current directory.
Buildfile includes Makefile, build.xml etc.
Return its file name if found, or nil if not found."
(if (flymake-get-buildfile-from-cache source-dir-name)
(flymake-get-buildfile-from-cache source-dir-name))
(let* ((buildfile-dir nil)
(or (flymake-get-buildfile-from-cache source-dir-name)
(let* ((dirs flymake-buildfile-dirs)
(buildfile-dir nil)
(buildfile nil)
(found nil))
(while (and (not found) dirs)
......@@ -1608,8 +1607,7 @@ Return full-name. Names are real, not patched."
"Find buildfile, store its dir in buffer data and return its dir, if found."
(let* ((buildfile-dir
(flymake-find-buildfile buildfile-name
(file-name-directory source-file-name)
(file-name-directory source-file-name))))
(if buildfile-dir
(setq flymake-base-dir buildfile-dir)
(flymake-log 1 "no buildfile (%s) for %s" buildfile-name source-file-name)
......@@ -1696,7 +1694,7 @@ Use CREATE-TEMP-F for creating temp copy."
(defun flymake-find-make-buildfile (source-dir)
(flymake-find-buildfile "Makefile" source-dir flymake-buildfile-dirs))
(flymake-find-buildfile "Makefile" source-dir))
;;;; .h/make specific
(defun flymake-master-make-header-init ()
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment