GNU bug report logs - #15004
24.3; fill-paragraph on perl-mode indented comment at start of buffer

Message received at submit <at> debbugs.gnu.org:

Received: (at submit) by debbugs.gnu.org; 1 Aug 2013 23:43:37 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Thu Aug 01 19:43:37 2013
Received: from localhost ([127.0.0.1]:35359 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.80)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1V52Wu-0002H2-Mu
	for submit <at> debbugs.gnu.org; Thu, 01 Aug 2013 19:43:37 -0400
Received: from eggs.gnu.org ([208.118.235.92]:33753)
 by debbugs.gnu.org with esmtp (Exim 4.80)
 (envelope-from <gg@HIDDEN>) id 1V52Wq-0002Gd-Uc
 for submit <at> debbugs.gnu.org; Thu, 01 Aug 2013 19:43:34 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
 (envelope-from <gg@HIDDEN>) id 1V52Wb-0004f3-9H
 for submit <at> debbugs.gnu.org; Thu, 01 Aug 2013 19:43:27 -0400
X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org
X-Spam-Level: 
X-Spam-Status: No, score=-99.2 required=5.0 tests=BAYES_50,USER_IN_WHITELIST
 autolearn=disabled version=3.3.2
Received: from lists.gnu.org ([2001:4830:134:3::11]:43505)
 by eggs.gnu.org with esmtp (Exim 4.71)
 (envelope-from <gg@HIDDEN>) id 1V52Wb-0004ew-1q
 for submit <at> debbugs.gnu.org; Thu, 01 Aug 2013 19:43:17 -0400
Received: from eggs.gnu.org ([2001:4830:134:3::10]:35339)
 by lists.gnu.org with esmtp (Exim 4.71)
 (envelope-from <gg@HIDDEN>) id 1V52WS-0002oQ-R1
 for bug-gnu-emacs@HIDDEN; Thu, 01 Aug 2013 19:43:16 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
 (envelope-from <gg@HIDDEN>) id 1V52WK-0004XZ-81
 for bug-gnu-emacs@HIDDEN; Thu, 01 Aug 2013 19:43:08 -0400
Received: from mailout2-12.pacific.net.au ([125.255.80.139]:48811
 helo=mailout4-syd3.pacific.net.au)
 by eggs.gnu.org with esmtp (Exim 4.71)
 (envelope-from <gg@HIDDEN>) id 1V52WJ-0004Vw-M8
 for bug-gnu-emacs@HIDDEN; Thu, 01 Aug 2013 19:43:00 -0400
Received: from mailproxy3-syd3.pacific.net.au (mailproxy3-syd3.pacific.net.au
 [61.8.2.164])
 by mailout4-syd3.pacific.net.au (Postfix) with ESMTP id 6D74F47B6B2
 for <bug-gnu-emacs@HIDDEN>; Fri,  2 Aug 2013 09:42:54 +1000 (EST)
Received: from blah.blah (unknown [203.26.175.75])
 by mailproxy3-syd3.pacific.net.au (Postfix) with ESMTP id 9BE49578092
 for <bug-gnu-emacs@HIDDEN>; Fri,  2 Aug 2013 09:42:53 +1000 (EST)
Received: from gg by blah.blah with local (Exim 4.80)
 (envelope-from <gg@HIDDEN>) id 1V52WO-0005B5-W9
 for bug-gnu-emacs@HIDDEN; Fri, 02 Aug 2013 09:43:05 +1000
From: Kevin Ryde <user42@HIDDEN>
To: bug-gnu-emacs@HIDDEN
Subject: 24.3; fill-paragraph on perl-mode indented comment at start of buffer
Date: Fri, 02 Aug 2013 09:43:04 +1000
Message-ID: <87wqo5vuyf.fsf@HIDDEN>
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux)
MIME-Version: 1.0
Content-Type: text/plain
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x
X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address
 (bad octet value).
X-Received-From: 2001:4830:134:3::11
X-Spam-Score: -3.4 (---)
X-Debbugs-Envelope-To: submit
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.15
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <http://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <http://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <http://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -3.4 (---)

Starting from emacs -Q,

 (progn
   (switch-to-buffer "xx")
   (erase-buffer)
   (insert " # aa aa\n")
   (insert " # bb bb\n")
   (insert " # cc cc\n")
   (insert " # dd dd\n")
   (goto-char (point-min))
   (perl-mode)
   (fill-paragraph nil))

gives

 # aa aa
 # bb bb cc cc dd dd

whereas I hoped the fill-paragraph would include the first line too,

 # aa aa bb bb cc cc dd dd

The problem is only if the lines are at the start of the buffer.
I noticed this under filladapt which narrows to its desired target
region and fills that.  The problem occurs both at actual start of
buffer and when narrowed.

I couldn't tell where it might go wrong except that it might be related
to perl-mode using comment-start-skip "\\(^\\|\\s-\\);?#+ *" which has a
\\(\\) group to demand preceding whitespace if not at start of line.
If you change it to

  (set (make-local-variable 'comment-start-skip) ";?#+[ \t]*")

then the fill correctly includes the first line.




In GNU Emacs 24.3.1 (i486-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2013-05-29 on blah.blah, modified by Debian
System Description:	Debian GNU/Linux 7.0 (wheezy)

Configured using:
 `configure '--build' 'i486-linux-gnu' '--build' 'i486-linux-gnu'
 '--prefix=/usr' '--sharedstatedir=/var/lib' '--libexecdir=/usr/lib'
 '--localstatedir=/var/lib' '--infodir=/usr/share/info'
 '--mandir=/usr/share/man' '--with-pop=yes'
 '--enable-locallisppath=/etc/emacs24:/etc/emacs:/usr/local/share/emacs/24.3/site-lisp:/usr/local/share/emacs/site-lisp:/usr/share/emacs/24.3/site-lisp:/usr/share/emacs/site-lisp'
 '--with-crt-dir=/usr/lib/i386-linux-gnu' '--with-x=yes'
 '--with-x-toolkit=lucid' '--with-toolkit-scroll-bars' '--without-gconf'
 'build_alias=i486-linux-gnu' 'CFLAGS=-g -O2 -fstack-protector
 --param=ssp-buffer-size=4 -Wformat -Werror=format-security -Wall'
 'LDFLAGS=-Wl,-z,relro -Wl,-znocombreloc'
 'CPPFLAGS=-D_FORTIFY_SOURCE=2''

Important settings:
  value of $LANG: en_AU
  locale-coding-system: iso-latin-1-unix
  default enable-multibyte-characters: t