"No beginning found" when using 'occur' from comments ahead of program in f90 mode

"No beginning found" when using 'occur' from comments ahead of program in f90 mode

[ECulver]

--text follows this line--
This bug report will be sent to the Free Software Foundation,
not to your local site managers!
Please write in English, because the Emacs maintainers do not have
translators to read other languages for them.

Your bug report will be posted to the bug-gnu-emacs@gnu.org mailing list,
and to the gnu.emacs.bug news group.

In GNU Emacs 21.3.1 (i386-msvc-nt5.0.2195)
 of 2003-03-28 on buffy
configured using `configure --with-msvc (12.00)'
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  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: ENU
  locale-coding-system: iso-latin-1
  default-enable-multibyte-characters: t

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

Using M-x occur on any regexp gives the error message
"No beginning found" when invoked before "PROGRAM" line
in f90 mode.


Recent input:
c C-g C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p 
M-x o c c u r <return> <return> C-n M-x o c c u r <return> 
<return> M-x b u <tab> g <tab> <backspace> <backspace> 
<backspace> g <backspace> C-g <help-echo> <menu-bar> 
<help-menu> <report-emacs-bug> " C-x o M-x o c c u 
<backspace> <backspace> <backspace> <backspace> M-x 
o c c u r <return> <return> M-x s e <tab> n <tab> <tab> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> C-g 
<menu-bar> <help-menu> <report-emacs-bug>

Recent messages:
No beginning-found.
Loading emacsbug...done
No beginning-found.
byte-code: Command attempted to use minibuffer while in minibuffer
No beginning-found. [9 times]
5 lines matched
No beginning-found.
Making completion list...
call-interactively: Quit
No beginning-found.
Edwin M Culver

Programmer Analyst
Scarborough Research
770  Broadway
13th Floor
New  York, New York  10003
United States



Telephone:
(646) 654-8416
Facsimile:
(646) 654-8440
email:
eculver@scarborough.com

Re: "No beginning found" when using 'occur' from comments ahead of program in f90 mode

[Glenn Morris]

ECulver@scarborough.com wrote:

> Using M-x occur on any regexp gives the error message "No beginning
> found" when invoked before "PROGRAM" line in f90 mode.

I'm afraid I cannot reproduce this. Can you give a recipe starting
from `emacs -q --no-site-file' that shows the problem, please?

"No beginning-found" is a message (not an error) produced by
f90-beginning-of-subprogram, when it cannot find the start of the
program block enclosing point. You'll certainly (and rightly) see that
message if you call said function before the PROGRAM line, because
point is then not inside a program. I don't see how M-x occur could
cause this to happen, though.