emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el


From: Eli Zaretskii
Subject: [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el
Date: Fri, 19 Apr 2002 08:22:13 -0400

Index: emacs/lisp/progmodes/f90.el
diff -c emacs/lisp/progmodes/f90.el:1.34 emacs/lisp/progmodes/f90.el:1.35
*** emacs/lisp/progmodes/f90.el:1.34    Tue Apr  2 12:29:58 2002
--- emacs/lisp/progmodes/f90.el Fri Apr 19 08:22:13 2002
***************
*** 3,9 ****
  ;; Copyright (C) 1995, 1996, 1997, 2000 Free Software Foundation, Inc.
  
  ;; Author: Torbj\"orn Einarsson <address@hidden>
! ;; Maintainer: Dave Love <address@hidden>
  ;; Keywords: fortran, f90, languages
  
  ;; This file is part of GNU Emacs.
--- 3,9 ----
  ;; Copyright (C) 1995, 1996, 1997, 2000 Free Software Foundation, Inc.
  
  ;; Author: Torbj\"orn Einarsson <address@hidden>
! ;; Maintainer: Glenn Morris <address@hidden>
  ;; Keywords: fortran, f90, languages
  
  ;; This file is part of GNU Emacs.
***************
*** 874,879 ****
--- 874,881 ----
  
  (defsubst f90-line-continued ()
    (save-excursion
+       (beginning-of-line)
+       (while (and (looking-at "[ \t]*\\(!\\|$\\)") (zerop (forward-line -1))))
      (let ((bol (f90-get-beg-of-line)))
        (end-of-line)
        (while (f90-in-comment)
***************
*** 994,1000 ****
         (looking-at "\\(module\\)[ \t]+\\(\\sw+\\)\\>"))
      (list (f90-match-piece 1) (f90-match-piece 2)))
     ((and (not (looking-at "end[ \t]*\\(function\\|subroutine\\)"))
!        (looking-at "[^!\"\&\n]*\\(function\\|subroutine\\)[ \t]+\\(\\sw+\\)"))
      (list (f90-match-piece 1) (f90-match-piece 2)))))
  
  (defsubst f90-looking-at-program-block-end ()
--- 996,1002 ----
         (looking-at "\\(module\\)[ \t]+\\(\\sw+\\)\\>"))
      (list (f90-match-piece 1) (f90-match-piece 2)))
     ((and (not (looking-at "end[ \t]*\\(function\\|subroutine\\)"))
!        (looking-at "[^!'\"\&\n]*\\(function\\|subroutine\\)[ 
\t]+\\(\\sw+\\)"))
      (list (f90-match-piece 1) (f90-match-piece 2)))))
  
  (defsubst f90-looking-at-program-block-end ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]