GNU bug report logs - #5746
Minor ada-mode layout problem

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

Received: (at submit) by debbugs.gnu.org; 21 Mar 2010 11:33:58 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Sun Mar 21 07:33:57 2010
Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.69)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1NtJPp-0000k7-LS
	for submit <at> debbugs.gnu.org; Sun, 21 Mar 2010 07:33:57 -0400
Received: from mx10.gnu.org ([199.232.76.166])
	by debbugs.gnu.org with esmtp (Exim 4.69)
	(envelope-from <simon <at> pushface.org>) id 1NtJOh-0000jL-L8
	for submit <at> debbugs.gnu.org; Sun, 21 Mar 2010 07:32:48 -0400
Received: from lists.gnu.org ([199.232.76.165]:50884)
	by monty-python.gnu.org with esmtps
	(TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60)
	(envelope-from <simon <at> pushface.org>) id 1NtJOc-0002cz-63
	for submit <at> debbugs.gnu.org; Sun, 21 Mar 2010 07:32:42 -0400
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1NtJOb-0000jD-Pe
	for bug-gnu-emacs <at> gnu.org; Sun, 21 Mar 2010 07:32:41 -0400
Received: from [140.186.70.92] (port=57341 helo=eggs.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1NtJOa-0000iY-AZ
	for bug-gnu-emacs <at> gnu.org; Sun, 21 Mar 2010 07:32:41 -0400
X-Spam-Checker-Version: SpamAssassin 3.3.0 (2010-01-18) on eggs.gnu.org
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,RCVD_IN_DNSWL_NONE
	autolearn=unavailable version=3.3.0
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69)
	(envelope-from <simon <at> pushface.org>) id 1NtJOZ-0007qF-C9
	for bug-gnu-emacs <at> gnu.org; Sun, 21 Mar 2010 07:32:40 -0400
Received: from mtaout01-winn.ispmail.ntl.com ([81.103.221.47]:5899)
	by eggs.gnu.org with esmtp (Exim 4.69)
	(envelope-from <simon <at> pushface.org>) id 1NtJOZ-0007pk-23
	for bug-gnu-emacs <at> gnu.org; Sun, 21 Mar 2010 07:32:39 -0400
Received: from aamtaout02-winn.ispmail.ntl.com ([81.103.221.35])
	by mtaout01-winn.ispmail.ntl.com
	(InterMail vM.7.08.04.00 201-2186-134-20080326) with ESMTP id
	<20100321113234.HTYZ14666.mtaout01-winn.ispmail.ntl.com <at> aamtaout02-winn.ispmail.ntl.com>
	for <bug-gnu-emacs <at> gnu.org>; Sun, 21 Mar 2010 11:32:34 +0000
Received: from [192.168.1.2] (really [82.30.110.254])
	by aamtaout02-winn.ispmail.ntl.com
	(InterMail vG.2.02.00.01 201-2161-120-102-20060912) with ESMTP id
	<20100321113234.LBGD21638.aamtaout02-winn.ispmail.ntl.com@[192.168.1.2]>
	for <bug-gnu-emacs <at> gnu.org>; Sun, 21 Mar 2010 11:32:34 +0000
From: Simon Wright <simon <at> pushface.org>
Content-Type: multipart/mixed; boundary=Apple-Mail-6-953659075
Subject: Minor ada-mode layout problem
Date: Sun, 21 Mar 2010 11:32:31 +0000
Message-Id: <5E556969-0F76-4CC4-8C9A-486274DF152D <at> pushface.org>
To: bug-gnu-emacs <at> gnu.org
Mime-Version: 1.0 (Apple Message framework v1077)
X-Mailer: Apple Mail (2.1077)
X-Cloudmark-Analysis: v=1.1 cv=W3tOLUehizD4qj6VhtReFuw5MKb8d+XqjIxlDsIazEA=
	c=1 sm=0 a=stj94ot0NnYRaZrMnVAA:9
	a=LXXSl4zsLp_KddA0yAc6a8pV7aIA:4 a=CjuIK1q_8ugA:10
	a=yhhusBQSzndSQY4SNbgA:9 a=L5-7FX6veRihF44WXo4A:7
	a=0cBC0_gCq6EWxbuDRGx54E52p_wA:4 a=HpAAvcLHHh0Zw7uRqdWCyQ==:117
X-detected-operating-system: by eggs.gnu.org: Solaris 10 (beta)
X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6,
	seldom 2.4 (older, 4)
X-Spam-Score: -4.2 (----)
X-Debbugs-Envelope-To: submit
X-Mailman-Approved-At: Sun, 21 Mar 2010 07:33:55 -0400
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.11
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/pipermail/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>
Sender: debbugs-submit-bounces <at> debbugs.gnu.org
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
X-Spam-Score: -5.4 (-----)


--Apple-Mail-6-953659075
Content-Transfer-Encoding: quoted-printable
Content-Type: text/plain;
	charset=us-ascii

Package: emacs, ada-mode

In the attached, the positioning of the lines starting 'renames' depends =
on whether it's in a function or a procedure.

The layout in the 'procedure' version is fine.

This is with ada-mode-4.01 (and Carbon Emacs Winter 2010 (sic), Emacs =
22.3.1).

--S



--Apple-Mail-6-953659075
Content-Disposition: attachment;
	filename=rename-layout-demo.adb
Content-Type: application/octet-stream;
	name="rename-layout-demo.adb"
Content-Transfer-Encoding: 7bit

package body BC.Indefinite_Unmanaged_Containers.Collections is

   function Current_Item_Ptr (It : Collection_Iterator) return Item_Ptr is
      C : Collection'Class
     renames Collection'Class (It.For_The_Container.all);
   begin
      null;
   end Current_Item_Ptr;

   procedure Delete_Item_At (It : in out Collection_Iterator) is
      C : Collection'Class
        renames Collection'Class (It.For_The_Container.all);
   begin
      null;
   end Delete_Item_At;

end BC.Indefinite_Unmanaged_Containers.Collections;

--Apple-Mail-6-953659075--