Mercurial > emacs
comparison lisp/progmodes/fortran.el @ 23838:e494267843f7
(fortran-check-end-prog-re): Allow trailing
comment.
author | Dave Love <fx@gnu.org> |
---|---|
date | Wed, 09 Dec 1998 16:38:37 +0000 |
parents | 53a4f2e0fccc |
children | d2ffab783280 |
comparison
equal
deleted
inserted
replaced
23837:5351ccb857f6 | 23838:e494267843f7 |
---|---|
923 (defun fortran-check-end-prog-re () | 923 (defun fortran-check-end-prog-re () |
924 "Check a preliminary match against `fortran-end-prog-re'." | 924 "Check a preliminary match against `fortran-end-prog-re'." |
925 ;; Having got a possible match for the subprogram end, we need a | 925 ;; Having got a possible match for the subprogram end, we need a |
926 ;; match of whitespace, avoiding possible column 73+ stuff. | 926 ;; match of whitespace, avoiding possible column 73+ stuff. |
927 (save-match-data | 927 (save-match-data |
928 (string-match "^\\s-*\\'" | 928 (string-match "^\\s-*\\(\\'\\|\\s<\\)" |
929 (buffer-substring (match-end 0) | 929 (buffer-substring (match-end 0) |
930 (min (line-end-position) | 930 (min (line-end-position) |
931 (+ 72 (line-beginning-position))))))) | 931 (+ 72 (line-beginning-position))))))) |
932 | 932 |
933 ;; Note that you can't just check backwards for `subroutine' &c in | 933 ;; Note that you can't just check backwards for `subroutine' &c in |