cperl-mode 4.32

cperl-mode 4.32

[local yokel]

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 (i586-suse-linux, X toolkit, Xaw3d scroll bars)
 of 2003-10-02 on D45
configured using `configure '--with-gcc' '--with-pop' '--with-system-malloc' '--prefix=/usr' '--infodir=/usr/share/info' '--mandir=/usr/share/man' '--sharedstatedir=/var/lib' '--libexecdir=/usr/lib' '--with-x' '--with-xpm' '--with-jpeg' '--with-tiff' '--with-gif' '--with-png' '--with-x-toolkit=lucid' '--x-includes=/usr/X11R6/include' '--x-libraries=/usr/X11R6/lib' 'i586-suse-linux' 'CC=gcc' 'CFLAGS=-O2 -march=i586 -mcpu=i686 -fmessage-length=0 -pipe 	 -DSYSTEM_PURESIZE_EXTRA=25000 	 -DSITELOAD_PURESIZE_EXTRA=10000 	 -D_GNU_SOURCE ' 'LDFLAGS=-s' 'build_alias=i586-suse-linux' 'host_alias=i586-suse-linux' 'target_alias=i586-suse-linux''
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: en_US
  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 cperl-mode, indent region moves top-level sub braces
in 4(?) spaces, then M-C-a cannot find them.

-------cut----------
#!/usr/bin/perl -w

sub a
{
}
-------cut----------
indent-region moves braces right 4(?) spaces

WHO MAINTAINS cperl-mode? I'm willing to talk to them
if emacs is the wrong place.
ilya@math.ohio-state.edu bounces.

thanks very much,
Bruce


Recent input:
<return> M-x g r e p - f i n d <return> <escape> p 
C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b C-b 
C-b C-b C-b C-b C-b C-b C-b i <return> C-x o C-n C-n 
C-n C-n C-n C-n f C-x o C-g C-x o C-x u <f5> <return> 
C-x 1 C-v <escape> < M-x b u g <tab> <backspace> <backspace> 
<backspace> e m <tab> C-g C-x k <return> C-x b <return> 
C-x C-b C-x o C-n C-n f i b u g <return> , , M-x r 
e p <tab> o r <tab> <return>

Recent messages:
unzipping emacs-1.gz...done
unzipping emacs-33.gz...done
unzipping emacs-34.gz...done
unzipping emacs-35.gz...done
unzipping emacs-36.gz...done
unzipping emacs-27.gz...done
Found `--debug-init' in Option Index.  (Press `,' for more)
Found `debug_print' in Command Index.  (Press `,' for more)
Found `report-emacs-bug' in Command Index.  (Press `,' for more)
Loading emacsbug...done

Re: cperl-mode 4.32

[Mark A. Hershberger]

local yokel <brucer@veriwave.com> writes:

> using cperl-mode, indent region moves top-level sub braces
> in 4(?) spaces, then M-C-a cannot find them.
>
> -------cut----------
> #!/usr/bin/perl -w
>
> sub a
> {
> }
> -------cut----------
> indent-region moves braces right 4(?) spaces

defun-prompt-regexp is set to

"^[ \t]*sub[ \t]+\\([^ \t\n{(;]+\\)\\([ \t]*([^()]*)[ \t]*\\)?[ \t]*)"

Changing it to

"^[ \t]*sub[ \t\n]+\\([^ \t\n{(;]+\\)\\([ \t\n]*([^()]*)[ \t\n]*\\)?[ \t\n]*)"

fixes the problem.

Mark.

-- 
A choice between one man and a shovel, or a dozen men with teaspoons
is clear to me, and I'm sure it is clear to you also.
    -- Zimran Ahmed <http://www.winterspeak.com/>