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

		  '("Cscope"
		    [ "Find symbol" cscope-find-this-symbol t ]
		    [ "Find global definition" cscope-find-global-definition t ]
		    [ "Find called functions" cscope-find-called-functions t ]
		    [ "Find functions calling a function"
		      cscope-find-functions-calling-this-function t ]
		    [ "Find text string" cscope-find-this-text-string t ]
		    [ "Find egrep pattern" cscope-find-egrep-pattern t ]
		    [ "Find a file" cscope-find-this-file t ]
		    [ "Find files #including a file"
		      cscope-find-files-including-file t ]
		    "-----------"
		    [ "Create list of files to index"
		      cscope-create-list-of-files-to-index t ]

; Description:  cscope interface for (X)Emacs
; Author:       Darryl Okahata
; Created:      Wed Apr 19 17:03:38 2000
; Modified:     Wed Jul 18 19:27:09 2001 (Darryl Okahata) darrylo@sonic.net
; Language:     Emacs-Lisp
; Package:      N/A
; Status:       Experimental
;
; (C) Copyright 2000, 2001, Darryl Okahata <darrylo@sonic.net>,
;     all rights reserved.
; GNU Emacs enhancements (C) Copyright 2001,
;         Triet H. Lai <thlai@mail.usyd.edu.au>
; Fuzzy matching and navigation code (C) Copyright 2001,
;         Steven Elliott <selliott4@austin.rr.com>
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
