 (if cscope:map
     nil
   (setq cscope:map (make-sparse-keymap))
+  ;; The following line corresponds to be beginning of the "Cscope" menu.
   (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-csG" 'cscope-find-global-definition-no-prompting)
   (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)
-  ;;
+  ;; --- (The '---' indicates that this line corresponds to a menu separator.)
+  (define-key cscope:map "\C-csn" 'cscope-next-symbol)
+  (define-key cscope:map "\C-csN" 'cscope-next-file)
+  (define-key cscope:map "\C-csp" 'cscope-prev-symbol)
+  (define-key cscope:map "\C-csP" 'cscope-prev-file)
+  (define-key cscope:map "\C-csu" 'cscope-pop-mark)
+  ;; ---
+  (define-key cscope:map "\C-csa" 'cscope-set-initial-directory)
+  (define-key cscope:map "\C-csA" 'cscope-unset-initial-directory)
+  ;; ---
   (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)

    ))


(defun cscope-find-called-functions (symbol)
  "Display functions called by a function."
  (interactive (list

		    (= old-pos (point))
		    (push-mark old-pos))
		))

	  (if cscope-marker
	      (progn ;; The search was successful.  Save the marker so it
                     ;; can be returned to by cscope-pop-mark.
		(ring-insert cscope-marker-ring cscope-marker)
		;; Unset cscope-marker so that moving between matches
		;; (cscope-next-symbol, etc.) does not fill
		;; cscope-marker-ring.
		(setq cscope-marker nil)))
          (setq cscope-marker-window window)
	  )
      (message "No entry found at point."))
    )
