Mercurial > emacs
changeset 51618:6a5cb63d165c
(fortran-gud-find-expr): Move from gud.el (was gud-find-fortran-expr).
(fortran-mode): Set gud-find-expr-function.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 18 Jun 2003 23:25:39 +0000 |
| parents | cef03ad7bf21 |
| children | 16b79b135bf5 |
| files | lisp/progmodes/fortran.el |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/fortran.el Wed Jun 18 22:37:40 2003 +0000 +++ b/lisp/progmodes/fortran.el Wed Jun 18 23:25:39 2003 +0000 @@ -1,6 +1,6 @@ ;;; fortran.el --- Fortran mode for GNU Emacs -;; Copyright (c) 1986, 93, 94, 95, 97, 98, 99, 2000, 2001 +;; Copyright (c) 1986, 93, 94, 95, 97, 98, 99, 2000, 01, 2003 ;; Free Software Foundation, Inc. ;; Author: Michael D. Prange <prange@erl.mit.edu> @@ -697,10 +697,15 @@ (set (make-local-variable 'add-log-current-defun-function) #'fortran-current-defun) (set (make-local-variable 'dabbrev-case-fold-search) 'case-fold-search) - (set (make-local-variable 'gud-find-expr) 'gud-find-fortran-expr) + (set (make-local-variable 'gud-find-expr-function) 'fortran-gud-find-expr) (run-hooks 'fortran-mode-hook)) +(defun fortran-gud-find-expr () + ;; Consider \n as punctuation (end of expression). + (with-syntax-table fortran-gud-syntax-table + (gud-find-c-expr))) + (defsubst fortran-comment-indent () "Return the indentation appropriate for the current comment line. This is 0 for a line matching `fortran-comment-line-start-skip', else