comparison lisp/progmodes/f90.el @ 45370:4055a77b0abb

(f90-match-end): Simplify it a bit.

45369:4d4036be4f4d

                          (setq end-struct (f90-looking-at-program-block-end)))
      (setq end-block (car end-struct)
            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)))
          (beginning-of-line)
          (skip-chars-forward " \t0-9")
          (cond ((setq matching-beg
                       (or
                        (f90-looking-at-do)
                        (f90-looking-at-if-then)
                        (f90-looking-at-where-or-forall)
                        (f90-looking-at-select-case)
                        (f90-looking-at-type-like)
                        (f90-looking-at-program-block-start)))
                 (setq count (1- count)))
                ((looking-at (concat "end[ \t]*" f90-blocks-re "\\b"))
                 (setq count (1+ count)))))
        (if (not (zerop count))
            (message "No matching beginning.")
          (f90-update-line)
          (if (eq f90-smart-end 'blink)
              (if (< (point) top-of-window)
                  (message "Matches %s: %s"

45370:4055a77b0abb

                          (setq end-struct (f90-looking-at-program-block-end)))
      (setq end-block (car end-struct)
            end-name  (car (cdr end-struct)))
      (save-excursion
        (beginning-of-line)
        (while (and (> count 0) (re-search-backward f90-blocks-re nil t))
          (beginning-of-line)
          (skip-chars-forward " \t0-9")
          (cond ((or (f90-in-string) (f90-in-comment)))
                ((setq matching-beg
                       (or
                        (f90-looking-at-do)
                        (f90-looking-at-if-then)
                        (f90-looking-at-where-or-forall)
                        (f90-looking-at-select-case)
                        (f90-looking-at-type-like)
                        (f90-looking-at-program-block-start)))
                 (setq count (1- count)))
                ((looking-at (concat "end[ \t]*" f90-blocks-re))
                 (setq count (1+ count)))))
        (if (> count 0)
            (message "No matching beginning.")
          (f90-update-line)
          (if (eq f90-smart-end 'blink)
              (if (< (point) top-of-window)
                  (message "Matches %s: %s"