 With prefix arg, compiles for debug and runs tests with the verbose flag set."
   (erlang-eunit-record-recent-compile under-cover)
   (let ((src-filename  (erlang-eunit-src-filename  buffer-file-name))
-	(test-filename (erlang-eunit-test-filename buffer-file-name)))
+        (test-filename (erlang-eunit-test-filename buffer-file-name)))
 
     ;; The purpose of out-maneuvering `save-some-buffers', as is done
     ;; below, is to ask the question about saving buffers only once,

;;; Join filenames
(defun filename-join (dir file)
  (if (or (= (elt file 0) ?/)
	  (= (car (last (append dir nil))) ?/))
      (concat dir file)
    (concat dir "/" file)))


  (let ((matches-p t))
    (while (and list matches-p)
      (if (not (funcall pred (car list)))
          (setq matches-p nil))
      (setq list (cdr list)))
    matches-p))

