comparison lisp/progmodes/fortran.el @ 23607:6b2444d06348

(fortran-end-prog-re1): Fix the regexp.

23606:57e437a51073

      (skip-chars-backward " \t")
      (insert last-command-char)
      (fortran-indent-line))))

(defvar fortran-end-prog-re1
  "end\\b[ \t]*\\(\\(program\\|subroutine\\|function\\)[ \t]*\\)?[^ \t=\(a-z]")
(defvar fortran-end-prog-re
  (concat "^[ \t0-9]*" fortran-end-prog-re1))

(defun beginning-of-fortran-subprogram ()
  "Moves point to the beginning of the current Fortran subprogram."

23607:6b2444d06348

      (skip-chars-backward " \t")
      (insert last-command-char)
      (fortran-indent-line))))

(defvar fortran-end-prog-re1
  ;; `end' followed by optional block type name and then optional
  ;; symbol, then eol.  In the absence of the block type name, the
  ;; trailing symbol would presumably be a sequence number in cols 72+.
  "end\
\\([ \t]+\\(program\\|subroutine\\|function\\|block[ \t]*data\\)\\>\\)?\
[ \t]*\\(\\(\\sw\\|\\s_\\)+[ \t]*\\)?\
$")
(defvar fortran-end-prog-re
  (concat "^[ \t0-9]*" fortran-end-prog-re1))

(defun beginning-of-fortran-subprogram ()
  "Moves point to the beginning of the current Fortran subprogram."