changeset 45370:4055a77b0abb

(f90-match-end): Simplify it a bit.
author Glenn Morris <rgm@gnu.org>
date Sun, 19 May 2002 21:46:23 +0000
parents 4d4036be4f4d
children 4f7f5dedc246
files lisp/progmodes/f90.el
diffstat 1 files changed, 5 insertions(+), 16 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/f90.el	Sun May 19 16:10:29 2002 +0000
+++ b/lisp/progmodes/f90.el	Sun May 19 21:46:23 2002 +0000
@@ -1598,22 +1598,11 @@
             end-name  (car (cdr end-struct)))
       (save-excursion
         (beginning-of-line)
-        (while
-            (and (not (zerop count))
-                 (let ((stop nil) notexist)
-                   (while (not stop)
-                     (setq notexist
-                           (not (re-search-backward
-                                 (concat "\\(" f90-blocks-re "\\)") nil t)))
-                     (if notexist
-                         (setq stop t)
-                       (setq stop
-                             (not (or (f90-in-string)
-                                      (f90-in-comment))))))
-                   (not notexist)))
+        (while (and (> count 0) (re-search-backward f90-blocks-re nil t))
           (beginning-of-line)
           (skip-chars-forward " \t0-9")
-          (cond ((setq matching-beg
+          (cond ((or (f90-in-string) (f90-in-comment)))
+                ((setq matching-beg
                        (or
                         (f90-looking-at-do)
                         (f90-looking-at-if-then)
@@ -1622,9 +1611,9 @@
                         (f90-looking-at-type-like)
                         (f90-looking-at-program-block-start)))
                  (setq count (1- count)))
-                ((looking-at (concat "end[ \t]*" f90-blocks-re "\\b"))
+                ((looking-at (concat "end[ \t]*" f90-blocks-re))
                  (setq count (1+ count)))))
-        (if (not (zerop count))
+        (if (> count 0)
             (message "No matching beginning.")
           (f90-update-line)
           (if (eq f90-smart-end 'blink)