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 |