mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Stefan Monnier 2006-01-10 04:05:46 +00:00
parent 8f9efec855
commit 5f73367de4
2 changed files with 27 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2006-01-09 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/flymake.el (flymake-find-buildfile): Remove invariant arg
`dirs'. Adjust callers.
2006-01-09 John Paul Wallington <jpw@gnu.org>
* cus-edit.el (custom-comment) <defface>: Add TTY definitions.

46
lisp/progmodes/flymake.el
View File

@ -312,30 +312,29 @@ 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)
(progn
(flymake-get-buildfile-from-cache source-dir-name))
(let* ((buildfile-dir nil)
(buildfile nil)
(found nil))
(while (and (not found) dirs)
(setq buildfile-dir (concat source-dir-name (car dirs)))
(setq buildfile (concat buildfile-dir "/" buildfile-name))
(when (file-exists-p buildfile)
(setq found t))
(setq dirs (cdr dirs)))
(if found
(progn
(flymake-log 3 "found buildfile at %s/%s" buildfile-dir buildfile-name)
(flymake-add-buildfile-to-cache source-dir-name buildfile-dir)
buildfile-dir)
(progn
(flymake-log 3 "buildfile for %s not found" source-dir-name)
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)
(setq buildfile-dir (concat source-dir-name (car dirs)))
(setq buildfile (concat buildfile-dir "/" buildfile-name))
(when (file-exists-p buildfile)
(setq found t))
(setq dirs (cdr dirs)))
(if found
(progn
(flymake-log 3 "found buildfile at %s/%s" buildfile-dir buildfile-name)
(flymake-add-buildfile-to-cache source-dir-name buildfile-dir)
buildfile-dir)
(progn
(flymake-log 3 "buildfile for %s not found" source-dir-name)
nil)))))
(defun flymake-fix-file-name (name)
"Replace all occurences of '\' with '/'."
@ -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)
flymake-buildfile-dirs)))
(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."
make-args))
(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 ()