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

[Glenn Morris]

Index: emacs/lisp/progmodes/f90.el
diff -c emacs/lisp/progmodes/f90.el:1.49 emacs/lisp/progmodes/f90.el:1.50
*** emacs/lisp/progmodes/f90.el:1.49    Sat May 18 18:41:45 2002
--- emacs/lisp/progmodes/f90.el Sun May 19 17:46:23 2002
***************
*** 1598,1619 ****
              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)
--- 1598,1608 ----
              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)
***************
*** 1622,1630 ****
                          (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)
--- 1611,1619 ----
                          (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)