/[emacs]/emacs/lisp/progmodes/f90.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/f90.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.34 by monnier, Tue Apr 2 17:29:58 2002 UTC revision 1.35 by eliz, Fri Apr 19 12:22:13 2002 UTC
# Line 3  Line 3 
3  ;; Copyright (C) 1995, 1996, 1997, 2000 Free Software Foundation, Inc.  ;; Copyright (C) 1995, 1996, 1997, 2000 Free Software Foundation, Inc.
4    
5  ;; Author: Torbj\"orn Einarsson <Torbjorn.Einarsson@era.ericsson.se>  ;; Author: Torbj\"orn Einarsson <Torbjorn.Einarsson@era.ericsson.se>
6  ;; Maintainer: Dave Love <fx@gnu.org>  ;; Maintainer: Glenn Morris <gmorris@ast.cam.ac.uk>
7  ;; Keywords: fortran, f90, languages  ;; Keywords: fortran, f90, languages
8    
9  ;; This file is part of GNU Emacs.  ;; This file is part of GNU Emacs.
# Line 874  with no args, if that value is non-nil." Line 874  with no args, if that value is non-nil."
874    
875  (defsubst f90-line-continued ()  (defsubst f90-line-continued ()
876    (save-excursion    (save-excursion
877            (beginning-of-line)
878            (while (and (looking-at "[ \t]*\\(!\\|$\\)") (zerop (forward-line -1))))
879      (let ((bol (f90-get-beg-of-line)))      (let ((bol (f90-get-beg-of-line)))
880        (end-of-line)        (end-of-line)
881        (while (f90-in-comment)        (while (f90-in-comment)
# Line 994  Name is non-nil only for type." Line 996  Name is non-nil only for type."
996           (looking-at "\\(module\\)[ \t]+\\(\\sw+\\)\\>"))           (looking-at "\\(module\\)[ \t]+\\(\\sw+\\)\\>"))
997      (list (f90-match-piece 1) (f90-match-piece 2)))      (list (f90-match-piece 1) (f90-match-piece 2)))
998     ((and (not (looking-at "end[ \t]*\\(function\\|subroutine\\)"))     ((and (not (looking-at "end[ \t]*\\(function\\|subroutine\\)"))
999           (looking-at "[^!\"\&\n]*\\(function\\|subroutine\\)[ \t]+\\(\\sw+\\)"))           (looking-at "[^!'\"\&\n]*\\(function\\|subroutine\\)[ \t]+\\(\\sw+\\)"))
1000      (list (f90-match-piece 1) (f90-match-piece 2)))))      (list (f90-match-piece 1) (f90-match-piece 2)))))
1001    
1002  (defsubst f90-looking-at-program-block-end ()  (defsubst f90-looking-at-program-block-end ()

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26