 the current directory will be used."
   (let (info regexps dir-regexp this-directory)
     (setq top-directory (cscope-canonicalize-directory top-directory))
-
     (catch 'done
-
       ;; Try searching using `cscope-database-regexps' ...
       (setq regexps cscope-database-regexps)
       (while regexps

(defun cscope-find-called-functions (symbol)
  "Display functions called by a function."
  (interactive (list
		(cscope-prompt-for-symbol "Find functions called by this function: "
					  nil)
		))
  (let ()
    (cscope-call (format "Finding functions called by: %s" symbol)


			    ;; 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)
						     'face 'cscope-file-face
						     str))
			      (cscope-insert-with-text-properties
			       str
			     (expand-file-name file)
			     ;; Yes, -1 is intentional
			     -1)
			      (insert "\n")
			    ))
		      (if (not cscope-first-match)
			  (setq cscope-first-match-point (point)))
		      ;; ... and insert the line, with the
		      ;; appropriate indentation.
			(cscope-insert-with-text-properties
			 (cscope-make-entry-line function-name
						 line-number
			       line)
			 (expand-file-name file)
			 line-number)
			(insert "\n")
		      (setq cscope-last-file file)
		      (if cscope-first-match
			  (setq cscope-matched-multiple t)
			(setq cscope-first-match
			      (cons (expand-file-name file)
				    (string-to-number line-number))))
		    ))
		  (insert line "\n")
		  ))
	      (set-marker (process-mark process) (point))
	      )
	    (if moving
