 ;;    particular, if you had to ftp this file, it is probably no
 ;;    longer executable.
 ;;
-;; 3. Put this emacs-lisp file somewhere where XEmacs can find it.  It
+;; 3. Put this emacs-lisp file somewhere where (X)Emacs can find it.  It
 ;;    basically has to be in some directory listed in "load-path".
 ;;
 ;; 4. Edit your ~/.emacs file to add the line:
 ;;
 ;;      (require 'xcscope)
 ;;
-;; 5. Restart XEmacs.  That's it.
+;; 5. Restart (X)Emacs.  That's it.
 ;;
 ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

    (setq sym (cscope-extract-symbol-at-cursor extract-filename))
    (if (or (not sym)
	    (string= sym "")
	    (not (and cscope-running-in-xemacs
		      cscope-no-mouse-prompts current-mouse-event
		      (or (mouse-event-p current-mouse-event)
			  (misc-user-event-p current-mouse-event))))
	    ;; Always prompt for symbol in dired mode.
