[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el |
Date: |
Sun, 19 May 2002 17:46:24 -0400 |
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)
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, Glenn Morris, 2002/05/01
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, Glenn Morris, 2002/05/01
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, Glenn Morris, 2002/05/18
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, Glenn Morris, 2002/05/18
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, Glenn Morris, 2002/05/18
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el,
Glenn Morris <=
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, Glenn Morris, 2002/05/19
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, Glenn Morris, 2002/05/19
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, Glenn Morris, 2002/05/19
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, Glenn Morris, 2002/05/20
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, Glenn Morris, 2002/05/24
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, Glenn Morris, 2002/05/26
- [Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el, Glenn Morris, 2002/05/27