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>, |