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

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

[Juan Carlos Lopez Vieyra]

Greetings,

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)?	


Thanks
JCLV

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

[Glenn Morris]

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")