 	(if cscope-command-args
 	    (setq options (append options cscope-command-args)))
 	(setq database-file (concat cscope-directory cscope-database-file)
-	      cscope-searched-dirs (cons cscope-directory cscope-searched-dirs)
+	      cscope-searched-dirs (cons cscope-directory
+					 cscope-searched-dirs)
 	      )
 
-	;; The database file and the directory containing the database file must
-	;; both be writable.
+	;; The database file and the directory containing the database file
+	;; must both be writable.
 	(if (or (not (file-writable-p database-file))
 		(not (file-writable-p (file-name-directory database-file)))
 		cscope-do-not-update-database)

		    cscope-last-file nil
		    )
	      (setq cscope-process
		    (apply 'start-process "cscope" outbuf cscope-program options))
	      (set-process-filter cscope-process cscope-filter-func)
;;	      (set-process-sentinel cscope-process 'cscope-process-sentinel)
	      (set-process-sentinel cscope-process cscope-sentinel-func)
	      (set-marker (process-mark cscope-process) (point))
	      (process-kill-without-query cscope-process)
	      (setq modeline-process ": Searching ..."
		    buffer-read-only t
		    )
	      )
	  (progn
	    (apply 'call-process cscope-program nil outbuf t options)
	    ))
	t
	))
    ))

(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)
