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

(make-variable-buffer-local 'cscope-filter-func)


(defvar cscope-last-file nil
  "The file referenced by the last line of cscope process output.")
(make-variable-buffer-local 'cscope-last-file)

	      (while (and cscope-process-output
			  (string-match "\\([^\n]+\n\\)\\(\\(.\\|\n\\)*\\)"
					cscope-process-output))
		(setq file				nil
		      glimpse-stripped-directory	nil
		      )
		;; Get a line
