Re: fortran-blink-matching-do does not work in v21.2.1

[Glenn Morris <gmorris+mail@ast.cam.ac.uk>]

Juan Carlos Lopez Vieyra wrote:

> Using emacs v21.2.1, I have found a problem with the fortran mode. The
> fortran-blink-matching-do does not match properly the do-enddo loops.
> Even in a very simple example:
>
> c234567
> 	DO I=1,100
> 	  WRITE(*,*)'Hello World'
>          END DO
>
> placing the cursor over the END DO and pressing TAB emacs responds with
> "No matching do".
>
> Does anyone know how to fix this bug (if it is really a  bug)?	

That is a (known) bug - thanks for reporting it. It is already fixed in the
CVS, and will be fixed in Emacs 21.3.

To fix it, you could download the latest EMACS_21_1_RC version of
fortran.el from

http://savannah.gnu.org/cgi-bin/viewcvs/emacs/emacs/lisp/progmodes/fortran.el

Or if you want to edit your existing fortran.el, just make a slight change
to `fortran-beginning-do', and recompile it.

***************
*** 1101,1107 ****
  				(fortran-check-end-prog-re))))
  	    (skip-chars-forward " \t0-9")
  	    (cond ((looking-at
! 		    "\\(\\(\\sw\\|\\s_\\)+:[ \t]*\\)?do[ \t]+[0-9]")
  		   (setq count (1- count)))
  		  ((looking-at "end[ \t]*do\\b")
  		   (setq count (1+ count)))))
--- 1104,1110 ----
  				(fortran-check-end-prog-re))))
  	    (skip-chars-forward " \t0-9")
  	    (cond ((looking-at
! 		    "\\(\\(\\sw\\|\\s_\\)+:[ \t]*\\)?do[ \t]+")
  		   (setq count (1- count)))
  		  ((looking-at "end[ \t]*do\\b")