mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Glenn Morris 2002-05-19 21:47:46 +00:00
parent 8bad880b02
commit 6dd52cafbd
2 changed files with 9 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2002-05-19 Glenn Morris <gmorris@ast.cam.ac.uk>
* progmodes/f90.el (f90-match-end): Simplify it a bit.
2002-05-19 Richard M. Stallman <rms@gnu.org>
* indent.el (indent-region): Make COLUMN arg optional.

21
lisp/progmodes/f90.el
View File

@ -1598,22 +1598,11 @@ Leave point at the end of line."
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 @@ Leave point at the end of line."
(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)