GNU bug report logs - #18502
24.4.50; perl-mode indentation problem

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 18502 in the body.
You can then email your comments to 18502 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: David Howells <dhowells <at> redhat.com>
To: bug-gnu-emacs <at> gnu.org
Cc: dhowells <at> redhat.com
Subject: 24.4.50; perl-mode indentation problem
Date: Thu, 18 Sep 2014 14:53:48 +0100

perl mode automatically indents substantially off to the right following the
first sub definition that has an odd number of '$' characters in the argument
spec, eg.:

	#!/usr/bin/perl -w

	sub add_funds($) {
	    return 0;
		      }

The closing brace should be against the left margin, but isn't because it
seems that perl-mode interprets '$)' in the sub line as being a variable
expansion and not a variable spec and a closing bracket.



In GNU Emacs 24.4.50.1 (x86_64-unknown-linux-gnu, X toolkit, Xaw3d scroll 
bars)
 of 2014-09-17 on warthog.procyon.org.uk
Windowing system distributor `Fedora Project', version 11.0.11404000
System Description:     Fedora release 20 (Heisenbug)

Configured using:
 `configure --prefix=/warthog/emacs64 --without-gconf --with-x-toolkit=athena
 --without-gsettings'

Configured features:
XAW3D XPM JPEG TIFF GIF PNG RSVG IMAGEMAGICK SOUND GPM DBUS 
NOTIFY ACL
LIBSELINUX GNUTLS LIBXML2 FREETYPE M17N_FLT LIBOTF XFT ZLIB

Important settings:
  value of $LANG: en_GB.UTF-8
  value of $XMODIFIERS: @im=none
  locale-coding-system: utf-8-unix

Major mode: Emacs-Lisp

Minor modes in effect:
  diff-auto-refine-mode: t
  display-time-mode: t
  tooltip-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t

Recent input:
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <up> <up> 
<left> <left> <left> M-. <return> s-b <prior> <next> 
<prior> <prior> <prior> <prior> <next> <next> <next> 
<next> <prior> <next> <prior> <up> <up> <up> <C-left> 
<C-left> C-s C-w C-w C-s C-s C-a <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <C-left> <C-left> C-s C-w C-w C-s <down-mouse-5> 
<mouse-5> <double-down-mouse-5> <double-mouse-5> <down-mouse-5> 
<mouse-5> <down-mouse-5> <mouse-5> <double-down-mouse-5> 
<double-mouse-5> <C-left> <C-left> C-s C-w C-w <C-home> 
C-s C-s C-s C-s C-s C-r C-r C-s C-s C-s C-s C-s C-s 
C-l <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
C-l <down-mouse-5> <mouse-5> C-x C-f C-# C-x C-f ~ 
/ . e m s <tab> <backspace> a <tab> <return> C-s p 
e r l C-s C-s C-s C-s C-s <up> C-x k <return> C-x C-f 
<C-backspace> <C-backspace> <C-backspace> <C-backspace> 
<C-backspace> <C-backspace> <C-backspace> s r <tab> 
<M-backspace> e m <tab> 6 <tab> / s r <tab> <tab> l 
i <tab> s <tab> <tab> p e <tab> <M-backspace> p r <tab> 
o g <tab> p <tab> e r <tab> <tab> <return> C-x C-f 
C-g C-x C-f <tab> p e r <tab> <tab> <tab> <tab> <backspace> 
<backspace> <backspace> <backspace> <tab> <tab> <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> <tab> 
<tab> <M-backspace> <M-backspace> <M-backspace> p <tab> 
C-g C-x C-f C-g C-x v l <help-echo> <down-mouse-1> 
<mouse-1> C-x 1 <next> <next> <next> <next> <next> 
<prior> <next> <next> <next> <prior> <next> <next> 
<next> M-x r e p <tab> o <tab> r <tab> <return>

Recent messages:
Mark set
Mark saved where search started
C-# is undefined
Quit
Mark saved where search started
Making completion list... [5 times]
Quit
Making completion list...
Quit [2 times]
Making completion list... [2 times]

Load-path shadows:
None found.

Features:
(shadow sort gnus-util mail-extr emacsbug message cl-macs dired format-spec
rfc822 mml mml-sec mm-decode mm-bodies mm-encode mail-parse rfc2231 
mailabbrev
gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums mm-util help-fns
mail-prsvr mail-utils add-log log-view pcvs-util help-mode vc-annotate vc
vc-dispatcher etags misearch multi-isearch rect hippie-exp comint ansi-color
ring perl-mode sh-script smie executable jka-compr desktop frameset vc-git cl
gv cl-loaddefs cl-lib cc-mode cc-fonts cc-guess cc-menus cc-cmds cc-styles
cc-align cc-engine cc-vars cc-defs diff-mode easymenu easy-mmode time
time-date tooltip electric uniquify ediff-hook vc-hooks lisp-float-type mwheel
x-win x-dnd tool-bar dnd fontset image regexp-opt fringe tabulated-list
newcomment lisp-mode prog-mode register page menu-bar rfn-eshadow timer 
select
scroll-bar mouse jit-lock font-lock syntax facemenu font-core frame cham
georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean
japanese hebrew greek romanian slovak czech european ethiopic indian cyrillic
chinese case-table epa-hook jka-cmpr-hook help simple abbrev minibuffer
nadvice loaddefs button faces cus-face macroexp files text-properties overlay
sha1 md5 base64 format env code-pages mule custom widget
hashtable-print-readable backquote make-network-process dbusbind gfilenotify
dynamic-setting font-render-setting x-toolkit x multi-tty emacs)

Memory information:
((conses 16 218584 8136)
 (symbols 48 23771 0)
 (miscs 40 205 1045)
 (strings 32 55442 7922)
 (string-bytes 1 1788377)
 (vectors 16 16976)
 (vector-slots 8 487454 6144)
 (floats 8 92 214)
 (intervals 56 12172 13)
 (buffers 976 36)
 (heap 1024 19728 2625))

Message #8 received at 18502 <at> debbugs.gnu.org (full text, mbox):

From: Stefan Monnier <monnier <at> iro.umontreal.ca>
To: David Howells <dhowells <at> redhat.com>
Cc: 18502 <at> debbugs.gnu.org
Subject: Re: bug#18502: 24.4.50; perl-mode indentation problem
Date: Sun, 21 Sep 2014 18:01:13 -0400

> perl mode automatically indents substantially off to the right following the
> first sub definition that has an odd number of '$' characters in the argument
> spec, eg.:

> 	#!/usr/bin/perl -w

> 	sub add_funds($) {
> 	    return 0;
> 		      }

Indeed, the code that handles this had a bug which made it fail when the
identifier has an underscore.


        Stefan

Message #13 received at 18502-done <at> debbugs.gnu.org (full text, mbox):

From: Stefan Monnier <monnier <at> iro.umontreal.ca>
To: David Howells <dhowells <at> redhat.com>
Cc: 18502-done <at> debbugs.gnu.org
Subject: Re: bug#18502: 24.4.50; perl-mode indentation problem
Date: Sun, 21 Sep 2014 18:03:48 -0400

Version:24.5

Should be fixed in trunk now,


        Stefan

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.