 		  (cscope-prompt-for-symbol "Find this egrep pattern: " nil))
 		))
   (let ()
+    (setq cscope-symbol symbol)
     (cscope-call (format "Finding egrep pattern: %s" symbol)
 		 (list "-6" symbol) nil 'cscope-process-filter
 		 'cscope-process-sentinel)

	  (if (windowp window)
	      (set-window-buffer window buffer)
	    (setq window (display-buffer buffer)))
    (set-buffer buffer)
    (if (> line-number 0)
	(progn
		(setq old-pos (point))
	  (goto-line line-number)
	  (set-window-point window (point))
		(if arrow-p
		    (set-marker overlay-arrow-position (point))
		  (set-marker overlay-arrow-position nil))
		(or (not save-mark-p)
		    (= old-pos (point))
		    (push-mark old-pos))
	  ))
	  )
      (message "No entry found at point."))
    )

		(cscope-prompt-for-symbol "Find this global definition: " nil)
		))
  (let ()
    (setq cscope-symbol symbol)
    (cscope-call (format "Finding global definition: %s" symbol)
		 (list "-1" symbol) nil 'cscope-process-filter
		 'cscope-process-sentinel)
