/[emacs]/emacs/lisp/progmodes/gud.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/gud.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by nickrob, Wed Jun 18 22:36:40 2003 UTC revision 1.3 by monnier, Wed Jun 18 23:26:28 2003 UTC
# Line 2658  Obeying it means displaying in another w Line 2658  Obeying it means displaying in another w
2658  ;; point is gud-find-expr, which tries to return an lvalue expression from  ;; point is gud-find-expr, which tries to return an lvalue expression from
2659  ;; around point.  ;; around point.
2660    
2661  (defvar gud-find-expr 'gud-find-c-expr)  (defvar gud-find-expr-function 'gud-find-c-expr)
2662    
2663  (defun gud-find-expr (&rest args)  (defun gud-find-expr (&rest args)
2664    (apply gud-find-expr args))    (apply gud-find-expr-function args))
   
 (defun gud-find-fortran-expr ()  
   ;; Consider \n as punctuation (end of expression).  
   (with-syntax-table fortran-gud-syntax-table  
     (gud-find-c-expr)))  
2665    
2666  ;; The next eight functions are hacked from gdbsrc.el by  ;; The next eight functions are hacked from gdbsrc.el by
2667  ;; Debby Ayers <ayers@asc.slb.com>,  ;; Debby Ayers <ayers@asc.slb.com>,

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26