* fortran-blink-matching-do fails
@ 2002-04-13 19:19 Roland Winkler
0 siblings, 0 replies; only message in thread
From: Roland Winkler @ 2002-04-13 19:19 UTC (permalink / raw)
Cc: Dave Love
In GNU Emacs 21.2.1 (i386-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
of 2002-04-09 on tfkp12
configured using `configure --prefix=/nfs/common --libexecdir=/nfs/common/lib --bindir=/nfs/common/lib/emacs/21.2/bin/i686-Linux --mandir=/nfs/common/share/man --infodir=/nfs/common/share/info --with-gcc --with-pop --with-x --with-x-toolkit=athena i386-pc-linux'
Important settings:
value of $LC_ALL: nil
value of $LC_COLLATE: POSIX
value of $LC_CTYPE: nil
value of $LC_MESSAGES: nil
value of $LC_MONETARY: nil
value of $LC_NUMERIC: nil
value of $LC_TIME: nil
value of $LANG: en_US
locale-coding-system: iso-latin-1
default-enable-multibyte-characters: nil
Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:
In emacs 21.2 the regexp in fortran-beginning-do for finding the
matching `DO' has been modified such that now it is matching DO
statements with a statement number. -- But `END DO' statements refer
to `DO' statements without a statement number so that now
fortran-blink-matching-do fails. Could you please go back to the
correct behavior of emacs 21.1?
Or am I missing here anything?
Thanks a lot,
Roland
diff -c emacs/21.2/lisp/progmodes/fortran.el emacs/21.1/lisp/progmodes/fortran.el
*** 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)))))
--- 1097,1103 ----
(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)))))
***************
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2002-04-13 19:19 UTC | newest]
Thread overview: (only message) (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2002-04-13 19:19 fortran-blink-matching-do fails Roland Winkler
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).