[Cscope-cvs] CVS: cscope/contrib/xcscope xcscope.el,1.11,1.12

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

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

Modified Files:
	xcscope.el 
Log Message:
Cursor handling tweaks in the output buffer


Index: xcscope.el
===================================================================
RCS file: /cvsroot/cscope/cscope/contrib/xcscope/xcscope.el,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -r1.11 -r1.12
*** xcscope.el	2001/10/17 01:00:03	1.11
--- xcscope.el	2001/11/02 00:42:55	1.12
***************
*** 7,11 ****
  ; Author:       Darryl Okahata
  ; Created:      Wed Apr 19 17:03:38 2000
! ; Modified:     Wed Jul 18 19:27:09 2001 (Darryl Okahata) da...@so...
  ; Language:     Emacs-Lisp
  ; Package:      N/A
--- 7,11 ----
  ; Author:       Darryl Okahata
  ; Created:      Wed Apr 19 17:03:38 2000
! ; Modified:     Thu Nov  1 16:34:54 2001 (Darryl Okahata) da...@so...
  ; Language:     Emacs-Lisp
  ; Package:      N/A
***************
*** 1771,1776 ****
      (save-window-excursion
        (save-excursion
! 	(if (and (setq window (get-buffer-window buffer))
! 		 (= (window-point window) (point-max)))
  	    (progn
  	      (setq update-window t)
--- 1771,1777 ----
      (save-window-excursion
        (save-excursion
! 	(if (or (and (setq window (get-buffer-window buffer))
! 		     (= (window-point window) (point-max)))
! 		(= (point) (point-max)))
  	    (progn
  	      (setq update-window t)
***************
*** 1779,1783 ****
  	(let (buffer-read-only continue)
  	  (goto-char (point-max))
! 	  (if (= cscope-output-start (point))
  	      (message "No matches were found."))
  	  (if (and cscope-suppress-empty-matches
--- 1780,1784 ----
  	(let (buffer-read-only continue)
  	  (goto-char (point-max))
! 	  (if (not cscope-first-match)
  	      (message "No matches were found."))
  	  (if (and cscope-suppress-empty-matches
***************
*** 1820,1832 ****
  	(set-buffer-modified-p nil)
  	))
!     (if (and done cscope-first-match-point)
! 	(if update-window
  	    (set-window-point window cscope-first-match-point)
! 	  (goto-char cscope-first-match-point)))
      (cond
       ( (not done)		;; we're not done -- do nothing for now
         (if update-window
! 	   (set-window-point window (point-max))
! 	 (goto-char (point-max)))
         )
       ( cscope-first-match
--- 1821,1835 ----
  	(set-buffer-modified-p nil)
  	))
!     (if (and done cscope-first-match-point update-window)
! 	(if window
  	    (set-window-point window cscope-first-match-point)
! 	  (goto-char cscope-first-match-point))
!       )
      (cond
       ( (not done)		;; we're not done -- do nothing for now
         (if update-window
! 	   (if window
! 	       (set-window-point window (point-max))
! 	     (goto-char (point-max))))
         )
       ( cscope-first-match
***************
*** 1838,1841 ****
--- 1841,1846 ----
         )
       )
+     (if (and done (eq old-buffer buffer))
+ 	(cscope-help))
      (set-buffer old-buffer)
      ))