     (setq end (point)
 	  plist (plist-put plist 'cscope-file filename))
     (if line-number
-		     (progn
+	(progn
 	  (if (stringp line-number)
 	      (setq line-number (string-to-number line-number)))
 	  (setq plist (plist-put plist 'cscope-line-number line-number))

			      line (substring line (match-beginning 4)
					      (match-end 4))
			      )
		      ;; If the current file is not the same as the previous
		      ;; one ...
		      (if (not (and cscope-last-file
				    (string= file cscope-last-file)))
			  (progn
			    ;; The current file is different.

			    ;; Insert a separating blank line if
			    ;; necessary.
			      (if cscope-last-file (insert "\n"))
			    ;; Insert the file name
			      (setq str (concat "*** " file ":"))
			      (if cscope-use-face
				  (put-text-property 0 (length str)


      ;; Should we add any more places to look?

      )		;; end catch
    (if (not info)
	(setq info (list (list top-directory))))
    info
