[Cscope-cvs] CVS: cscope/contrib/xcscope xcscope.el,1.15,1.16

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

Update of /cvsroot/cscope/cscope/contrib/xcscope
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv17515

Modified Files:
	xcscope.el 
Log Message:
Added optional autoclose.  Also fixed [Ret] key for plain Emacs.


Index: xcscope.el
===================================================================
RCS file: /cvsroot/cscope/cscope/contrib/xcscope/xcscope.el,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -r1.15 -r1.16
*** xcscope.el	9 Apr 2013 14:35:57 -0000	1.15
--- xcscope.el	6 Aug 2013 07:50:10 -0000	1.16
***************
*** 831,834 ****
--- 831,840 ----
  
  
+ (defcustom cscope-close-window-after-select nil
+   "*If non-nil close the window showing the cscope buffer after an entry has been selected."
+   :type 'boolean
+   :group 'cscope)
+ 
+ 
  (defvar cscope-minor-mode-hooks nil
    "List of hooks to call when entering cscope-minor-mode.")
***************
*** 916,919 ****
--- 922,927 ----
      (define-key cscope-list-entry-keymap [mouse-2] 'cscope-mouse-select-entry-other-window))
    (define-key cscope-list-entry-keymap [return] 'cscope-select-entry-other-window)
+   ;; \r is for Emacs:
+   (define-key cscope-list-entry-keymap "\r" 'cscope-select-entry-other-window)
    (define-key cscope-list-entry-keymap " " 'cscope-show-entry-other-window)
    (define-key cscope-list-entry-keymap "o" 'cscope-select-entry-one-window)
***************
*** 1388,1392 ****
      (if (windowp window)
  	(select-window window))
!     ))
  
  
--- 1396,1402 ----
      (if (windowp window)
  	(select-window window))
!     )
!   (if cscope-close-window-after-select
!     (delete-windows-on cscope-output-buffer-name)))