diff options
| author | Glenn Morris | 2002-05-20 21:52:07 +0000 |
|---|---|---|
| committer | Glenn Morris | 2002-05-20 21:52:07 +0000 |
| commit | b32a3d9930a2b36618fd16ca825f7cf8f9e0d8d7 (patch) | |
| tree | 64c75cddcec1a39c903424ca657ede77a21c178d | |
| parent | 6f6420041a765bd76f6021d2b9913f68e202e0ce (diff) | |
| download | emacs-b32a3d9930a2b36618fd16ca825f7cf8f9e0d8d7.tar.gz emacs-b32a3d9930a2b36618fd16ca825f7cf8f9e0d8d7.zip | |
(f90-looking-at-where-or-forall): Oops, defsubst, not defun.
| -rw-r--r-- | lisp/progmodes/f90.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index e321dfce8d8..0e6eed254d0 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el | |||
| @@ -955,7 +955,7 @@ NAME is nil if the statement has no label." | |||
| 955 | (looking-at "then\\>"))) | 955 | (looking-at "then\\>"))) |
| 956 | (list struct label)))))) | 956 | (list struct label)))))) |
| 957 | 957 | ||
| 958 | (defun f90-looking-at-where-or-forall () | 958 | (defsubst f90-looking-at-where-or-forall () |
| 959 | "Return (KIND NAME) if a where or forall block starts after point. | 959 | "Return (KIND NAME) if a where or forall block starts after point. |
| 960 | NAME is nil if the statement has no label." | 960 | NAME is nil if the statement has no label." |
| 961 | (save-excursion | 961 | (save-excursion |