diff options
| author | Dave Love | 1998-12-09 16:38:37 +0000 |
|---|---|---|
| committer | Dave Love | 1998-12-09 16:38:37 +0000 |
| commit | bd6cabcf14906e3ca108e914702715aa35288d4b (patch) | |
| tree | 3109f1d52674f9dabed7cd95d7adc50d4b15a54e | |
| parent | 65cb17d5903bba5af1b4a232e7420a1535d2347d (diff) | |
| download | emacs-bd6cabcf14906e3ca108e914702715aa35288d4b.tar.gz emacs-bd6cabcf14906e3ca108e914702715aa35288d4b.zip | |
(fortran-check-end-prog-re): Allow trailing
comment.
| -rw-r--r-- | lisp/progmodes/fortran.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 10ff6f93a23..004fe946436 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el | |||
| @@ -925,7 +925,7 @@ Auto-indent does not happen if a numeric ARG is used." | |||
| 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))))))) |