      ( (and cscope-edit-single-match cscope-first-match
 	    (not cscope-matched-multiple))
        (progn
-	 (cscope-show-message (car cscope-first-match)
-			      (cdr cscope-first-match) window)
+	 (cscope-show-entry-internal (car cscope-first-match)
+				     (cdr cscope-first-match) t)
 	 ))
      ( (and update-window cscope-first-match-point)
        (set-window-point window cscope-first-match-point))

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

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

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