       )
     (pop-to-buffer outbuf)
     (goto-char (point-max))
+    (cscope-list-entry-mode)
+    (cscope-help)
     ))
 
 

  "")
(make-variable-buffer-local 'cscope-stop-at-first-match-dir-meta)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defvar cscope:map (make-sparse-keymap)
  "The cscope keymap.")

(define-key cscope:map "\C-css" 'cscope-find-this-symbol)
(define-key cscope:map "\C-csd" 'cscope-find-global-definition)
(define-key cscope:map "\C-csg" 'cscope-find-global-definition)
(define-key cscope:map "\C-csc" 'cscope-find-functions-calling-this-function)
(define-key cscope:map "\C-csC" 'cscope-find-called-functions)
(define-key cscope:map "\C-cst" 'cscope-find-this-text-string)
(define-key cscope:map "\C-cse" 'cscope-find-egrep-pattern)
(define-key cscope:map "\C-csf" 'cscope-find-this-file)
(define-key cscope:map "\C-csi" 'cscope-find-files-including-file)
;;
(define-key cscope:map "\C-csL" 'cscope-create-list-of-files-to-index)
(define-key cscope:map "\C-csI" 'cscope-index-files)
(define-key cscope:map "\C-csE" 'cscope-edit-list-of-files-to-index)
(define-key cscope:map "\C-csW" 'cscope-tell-user-about-directory)
(define-key cscope:map "\C-csS" 'cscope-tell-user-about-directory)
(define-key cscope:map "\C-csT" 'cscope-tell-user-about-directory)
(define-key cscope:map "\C-csD" 'cscope-dired-directory)

(easy-menu-define cscope:menu
		  cscope:map
		  "cscope menu"
		  '("Cscope"
		    [ "Find symbol" cscope-find-this-symbol 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)
