[Cscope-cvs] CVS: cscope/contrib/xcscope xcscope.el,1.13,1.14

[Darryl O. <da...@us...>]

Update of /cvsroot/cscope/cscope/contrib/xcscope
In directory usw-pr-cvs1:/tmp/cvs-serv30371

Modified Files:
	xcscope.el 
Log Message:
Intermediate checkin.
Fix spelling errors.  Miscellaneous tweaks and small bugfixes.


Index: xcscope.el
===================================================================
RCS file: /cvsroot/cscope/cscope/contrib/xcscope/xcscope.el,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -r1.13 -r1.14
*** xcscope.el	5 Apr 2002 01:26:00 -0000	1.13
--- xcscope.el	10 Apr 2002 16:59:00 -0000	1.14
***************
*** 308,312 ****
  ;;    cscope to build the database:
  ;;
! ;;            cd top-level-directory    # or whereever
  ;;            rm -f cscope.out          # not always necessary
  ;;            cscope -b
--- 308,312 ----
  ;;    cscope to build the database:
  ;;
! ;;            cd top-level-directory    # or wherever
  ;;            rm -f cscope.out          # not always necessary
  ;;            cscope -b
***************
*** 317,321 ****
  ;;    list of all pathnames into it.  Then build the database using:
  ;;
! ;;            cd some-directory         # whereever cscope.files exists
  ;;            rm -f cscope.out          # not always necessary
  ;;            cscope -b
--- 317,321 ----
  ;;    list of all pathnames into it.  Then build the database using:
  ;;
! ;;            cd some-directory         # wherever cscope.files exists
  ;;            rm -f cscope.out          # not always necessary
  ;;            cscope -b
***************
*** 1173,1177 ****
  		    [ "Pop mark"        	cscope-pop-mark t ]
  		    "-----------"
! 		    ( "More ..."
  		      [ "Set initial directory"
  			cscope-set-initial-directory t ]
--- 1173,1177 ----
  		    [ "Pop mark"        	cscope-pop-mark t ]
  		    "-----------"
! 		    ( "Cscope Database"
  		      [ "Set initial directory"
  			cscope-set-initial-directory t ]
***************
*** 1332,1336 ****
  				      ;; backward-point is closest to old-point.
  				      ;; Give forward-point a line-length advantage
! 				      ;; so that if the symbol is on the currrent
  				      ;; line the current line is chosen.
  				      (if (<= (- (- forward-point line-length)
--- 1332,1336 ----
  				      ;; backward-point is closest to old-point.
  				      ;; Give forward-point a line-length advantage
! 				      ;; so that if the symbol is on the current
  				      ;; line the current line is chosen.
  				      (if (<= (- (- forward-point line-length)
***************
*** 1420,1429 ****
    (let ((ep (cscope-event-point event))
  	(win (cscope-event-window event))
! 	buffer file line-number)
!     (setq buffer (window-buffer win)
! 	  file (get-text-property ep 'cscope-file buffer)
! 	  line-number (get-text-property ep 'cscope-line-number buffer))
!     (select-window win)
!     (select-window (cscope-show-entry-internal file line-number t))
      ))
  
--- 1420,1436 ----
    (let ((ep (cscope-event-point event))
  	(win (cscope-event-window event))
! 	buffer file line-number window)
!     (if ep
!         (progn
!           (setq buffer (window-buffer win)
!                 file (get-text-property ep 'cscope-file buffer)
!                 line-number (get-text-property ep 'cscope-line-number buffer))
!           (select-window win)
!           (setq window (cscope-show-entry-internal file line-number t))
!           (if (windowp window)
!               (select-window window))
!           )
!       (message "No entry found at point.")
!       )
      ))
  
***************
*** 1883,1887 ****
         (if cscope-display-cscope-buffer
             (if (and cscope-edit-single-match (not cscope-matched-multiple))
!                (cscope-show-entry-internal (car cscope-first-match)
                                             (cdr cscope-first-match) t))
           (cscope-select-entry-specified-window old-buffer-window))
--- 1890,1894 ----
         (if cscope-display-cscope-buffer
             (if (and cscope-edit-single-match (not cscope-matched-multiple))
!                (cscope-show-entry-internal(car cscope-first-match)
                                             (cdr cscope-first-match) t))
           (cscope-select-entry-specified-window old-buffer-window))
***************
*** 2340,2344 ****
  		 "Find functions called by this function: " nil)
  		))
!   (let ( (cscope-adjust nil) )	 ;; Suppress fuzzy matching.
      (setq cscope-symbol symbol)
      (cscope-call (format "Finding functions called by: %s" symbol)
--- 2347,2351 ----
  		 "Find functions called by this function: " nil)
  		))
!   (let ( (cscope-adjust nil) )	 ;; Disable fuzzy matching.
      (setq cscope-symbol symbol)
      (cscope-call (format "Finding functions called by: %s" symbol)
***************
*** 2410,2415 ****
  		   "Find files #including this file: " t))
  		))
!   (let ( (cscope-adjust nil) )	;; Disable fuzzy matching.
!     				;; Is this needed?
      (setq cscope-symbol symbol)
      (cscope-call (format "Finding files #including file: %s" symbol)
--- 2417,2421 ----
  		   "Find files #including this file: " t))
  		))
!   (let ( (cscope-adjust t) )	;; Use fuzzy matching.
      (setq cscope-symbol symbol)
      (cscope-call (format "Finding files #including file: %s" symbol)