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

[Neil H. <nh...@us...>]

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

Modified Files:
	xcscope.el 
Log Message:
Add find assignments search to xcscope.el

Resolves https://sourceforge.net/p/cscope/patches/79/


Index: xcscope.el
===================================================================
RCS file: /cvsroot/cscope/cscope/contrib/xcscope/xcscope.el,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -r1.14 -r1.15
*** xcscope.el	10 Apr 2002 16:59:00 -0000	1.14
--- xcscope.el	9 Apr 2013 14:35:57 -0000	1.15
***************
*** 928,931 ****
--- 928,932 ----
    (define-key cscope-list-entry-keymap "G"
      'cscope-find-global-definition-no-prompting)
+   (define-key cscope-list-entry-keymap "=" 'cscope-find-assignments-to-this-symbol)
    (define-key cscope-list-entry-keymap "c" 'cscope-find-functions-calling-this-function)
    (define-key cscope-list-entry-keymap "C" 'cscope-find-called-functions)
***************
*** 1120,1123 ****
--- 1121,1125 ----
    (define-key cscope:map "\C-csg" 'cscope-find-global-definition)
    (define-key cscope:map "\C-csG" 'cscope-find-global-definition-no-prompting)
+   (define-key cscope:map "\C-cs=" 'cscope-find-assignments-to-this-symbol)
    (define-key cscope:map "\C-csc" 'cscope-find-functions-calling-this-function)
    (define-key cscope:map "\C-csC" 'cscope-find-called-functions)
***************
*** 1155,1158 ****
--- 1157,1162 ----
  		    [ "Find global definition no prompting"
  		      cscope-find-global-definition-no-prompting t ]
+ 		    [ "Find assignments to symbol"
+                       cscope-find-assignments-to-this-symbol t ]
  		    [ "Find functions calling a function"
  		      cscope-find-functions-calling-this-function t ]
***************
*** 2425,2428 ****
--- 2429,2446 ----
  
  
+ (defun cscope-find-assignments-to-this-symbol (symbol)
+   "Locate assignments to a symbol in the source code."
+   (interactive (list
+ 		(cscope-prompt-for-symbol "Find assignments to this symbol: " nil)
+ 		))
+   (let ( (cscope-adjust t) )	 ;; Use fuzzy matching.
+     (setq cscope-symbol symbol)
+     (cscope-call (format "Finding assignments to symbol: %s" symbol)
+ 		 (list "-9" symbol) nil 'cscope-process-filter
+ 		 'cscope-process-sentinel)
+     ))
+ 
+ 
+ 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;