 (defun cscope-find-this-symbol (symbol)
   "Locate a symbol in source code."
   (interactive (list
-		(cscope-prompt-for-symbol "Find this symbol: ")
+		(cscope-prompt-for-symbol "Find this symbol: " nil)
 		))
   (let ()
     (cscope-call (format "Finding symbol: %s" symbol)
-		 (list "-0" symbol) nil 'cscope-process-filter)
+		 (list "-0" symbol) nil 'cscope-process-filter
+		 'cscope-process-sentinel)
     ))
 
 
 (defun cscope-find-global-definition (symbol)
   "Find a symbol's global definition."
   (interactive (list
-		(cscope-prompt-for-symbol "Find this global definition: ")
+		(cscope-prompt-for-symbol "Find this global definition: " nil)
 		))
   (let ()
     (cscope-call (format "Finding global definition: %s" symbol)
-		 (list "-1" symbol) nil 'cscope-process-filter)
+		 (list "-1" symbol) nil 'cscope-process-filter
+		 'cscope-process-sentinel)
     ))
 
 
 (defun cscope-find-called-functions (symbol)
   "Display functions called by a function."
   (interactive (list
-		(cscope-prompt-for-symbol "Find functions called by this function: ")
+		(cscope-prompt-for-symbol "Find functions called by this function: "
+					  nil)
 		))
   (let ()
     (cscope-call (format "Finding functions called by: %s" symbol)
-		 (list "-2" symbol) nil 'cscope-process-filter)
+		 (list "-2" symbol) nil 'cscope-process-filter
+		 'cscope-process-sentinel)
     ))
 
 
 (defun cscope-find-functions-calling-this-function (symbol)
   "Display functions calling a function."
   (interactive (list
-		(cscope-prompt-for-symbol "Find functions calling this function: ")
+		(cscope-prompt-for-symbol "Find functions calling this function: "
+					  nil)
 		))
   (let ()
     (cscope-call (format "Finding functions calling: %s" symbol)
-		 (list "-3" symbol) nil 'cscope-process-filter)
+		 (list "-3" symbol) nil 'cscope-process-filter
+		 'cscope-process-sentinel)
     ))
 
 
 (defun cscope-find-this-text-string (symbol)
   "Locate where a text string occurs."
   (interactive (list
-		(cscope-prompt-for-symbol "Find this text string: ")
+		(cscope-prompt-for-symbol "Find this text string: " nil)
 		))
   (let ()
     (cscope-call (format "Finding text string: %s" symbol)
-		 (list "-4" symbol) nil 'cscope-process-filter)
+		 (list "-4" symbol) nil 'cscope-process-filter
+		 'cscope-process-sentinel)
     ))
 
 
 (defun cscope-find-egrep-pattern (symbol)
   "Run egrep over the cscope database."
   (interactive (list
-		(cscope-prompt-for-symbol "Find this egrep pattern: ")
+		(let (cscope-no-mouse-prompts)
+		  (cscope-prompt-for-symbol "Find this egrep pattern: " nil))
 		))
   (let ()
     (cscope-call (format "Finding egrep pattern: %s" symbol)
-		 (list "-6" symbol) nil 'cscope-process-filter)
+		 (list "-6" symbol) nil 'cscope-process-filter
+		 'cscope-process-sentinel)
     ))
 
 
 (defun cscope-find-this-file (symbol)
   "Locate a file."
   (interactive (list
-		(cscope-prompt-for-symbol "Find this file: ")
+		(let (cscope-no-mouse-prompts)
+		  (cscope-prompt-for-symbol "Find this file: " t))
 		))
   (let ()
     (cscope-call (format "Finding file: %s" symbol)
-		 (list "-7" symbol) nil 'cscope-process-filter)
+		 (list "-7" symbol) nil 'cscope-process-filter
+		 'cscope-process-sentinel)
     ))
 
 
 (defun cscope-find-files-including-file (symbol)
   "Locate all files #including a file."
   (interactive (list
-		(cscope-prompt-for-symbol "Find files #including this file: ")
+		(let (cscope-no-mouse-prompts)
+		  (cscope-prompt-for-symbol "Find files #including this file: " t))
 		))
   (let ()
     (cscope-call (format "Finding files #including file: %s" symbol)
-		 (list "-8" symbol) nil 'cscope-process-filter)
+		 (list "-8" symbol) nil 'cscope-process-filter
+		 'cscope-process-sentinel)
     ))
 
 

	    (setq options (cons "-d" options)))

	(goto-char (point-max))
	(insert "\nDatabase directory: " cscope-directory "\n"
		cscope-separator-line)
	(setq default-directory cscope-directory)
	(if cscope-filter-func
	    (progn

; (C) Copyright 2000, Darryl Okahata, all rights reserved.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ALPHA VERSION 0.92
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; This is a cscope interface for XEmacs.
