   "Locate all files #including a file."
   (interactive (list
 		(let (cscope-no-mouse-prompts)
-		  (cscope-prompt-for-symbol "Find files #including this file: " t))
+		  (cscope-prompt-for-symbol
+		   "Find files #including this file: " t))
 		))
   (let ()
     (cscope-call (format "Finding files #including file: %s" symbol)

    (setq info (cscope-find-info nil))
    (if (= (length info) 1)
	(progn
	  (setq directory (car info))
	  (message (concat "Cscope directory: " directory))
	  )
      (let ( (outbuf (get-buffer-create cscope-info-buffer-name)) )

		    (insert (format "  Search time = %.2f seconds."
				    elapsed-time))
		    ))
	      (setq cscope-process nil)
	      (if cscope-running-in-xemacs
		  (setq modeline-process ": Search complete"))
	      (if cscope-start-directory
		  (setq default-directory cscope-start-directory))
	      )
