# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1021844783 0
# Node ID 4055a77b0abb2eda816fee72e019897e6fecea2f
# Parent  4d4036be4f4df3d0214d07d1f6040b97d5ea916a
(f90-match-end): Simplify it a bit.

diff -r 4d4036be4f4d -r 4055a77b0abb lisp/progmodes/f90.el
--- 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)