From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Allan Gottlieb Newsgroups: gmane.emacs.bugs Subject: bug#272: indentation error in ada-mode Date: Sat, 17 May 2008 18:20:14 -0400 (EDT) Message-ID: <20080517222014.2A09719D92E@ajglap.localdomain> Reply-To: Allan Gottlieb , 272@emacsbugs.donarmstrong.com NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1211080320 7816 80.91.229.12 (18 May 2008 03:12:00 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sun, 18 May 2008 03:12:00 +0000 (UTC) To: bug-gnu-emacs@gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sun May 18 05:12:37 2008 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1JxZK7-0001Z7-Vs for geb-bug-gnu-emacs@m.gmane.org; Sun, 18 May 2008 05:12:36 +0200 Original-Received: from localhost ([127.0.0.1]:33978 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JxZJN-0007o3-Vp for geb-bug-gnu-emacs@m.gmane.org; Sat, 17 May 2008 23:11:49 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JxZJJ-0007nr-2Z for bug-gnu-emacs@gnu.org; Sat, 17 May 2008 23:11:45 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JxZJI-0007nJ-1f for bug-gnu-emacs@gnu.org; Sat, 17 May 2008 23:11:44 -0400 Original-Received: from [199.232.76.173] (port=49443 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JxZJH-0007nF-VJ for bug-gnu-emacs@gnu.org; Sat, 17 May 2008 23:11:43 -0400 Original-Received: from rzlab.ucr.edu ([138.23.92.77]:60228) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1JxZJH-0001eu-8B for bug-gnu-emacs@gnu.org; Sat, 17 May 2008 23:11:43 -0400 Original-Received: from rzlab.ucr.edu (rzlab.ucr.edu [127.0.0.1]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with ESMTP id m4I3BfS4029976; Sat, 17 May 2008 20:11:41 -0700 Original-Received: (from debbugs@localhost) by rzlab.ucr.edu (8.13.8/8.13.8/Submit) id m4I2t5BI024712; Sat, 17 May 2008 19:55:05 -0700 X-Loop: don@donarmstrong.com Resent-From: Allan Gottlieb Resent-To: bug-submit-list@donarmstrong.com Resent-CC: Emacs Bugs Resent-Date: Sun, 18 May 2008 02:55:05 +0000 Resent-Message-ID: Resent-Sender: don@donarmstrong.com X-Emacs-PR-Message: report 272 X-Emacs-PR-Package: emacs X-Emacs-PR-Keywords: Original-Received: via spool by submit@emacsbugs.donarmstrong.com id=B.121107876123375 (code B ref -1); Sun, 18 May 2008 02:55:05 +0000 Original-Received: (at submit) by emacsbugs.donarmstrong.com; 18 May 2008 02:46:01 +0000 Original-Received: from lists.gnu.org (lists.gnu.org [199.232.76.165]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with ESMTP id m4I2jvER023369 for ; Sat, 17 May 2008 19:45:58 -0700 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JxYuL-00015v-3l for bug-gnu-emacs@gnu.org; Sat, 17 May 2008 22:45:57 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JxYuK-000150-OE for bug-gnu-emacs@gnu.org; Sat, 17 May 2008 22:45:56 -0400 Original-Received: from [199.232.76.173] (port=45923 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JxYuK-00014m-BL for bug-gnu-emacs@gnu.org; Sat, 17 May 2008 22:45:56 -0400 Original-Received: from smtp.cs.nyu.edu ([128.122.80.33]:63759) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1JxYuK-0006wo-04 for bug-gnu-emacs@gnu.org; Sat, 17 May 2008 22:45:56 -0400 Original-Received: from ajglap.localdomain (c-24-34-197-106.hsd1.ma.comcast.net [24.34.197.106]) (authenticated bits=0) by smtp.cs.nyu.edu (8.14.1/8.13.8) with ESMTP id m4I2jsp5022723 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NOT) for ; Sat, 17 May 2008 22:45:54 -0400 (EDT) Original-Received: by ajglap.localdomain (Postfix, from userid 1502) id 19ED819D92E; Sat, 17 May 2008 22:45:49 -0400 (EDT) User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.2 (gnu/linux) X-detected-kernel: by monty-python.gnu.org: Solaris 10 (beta) X-detected-kernel: by monty-python.gnu.org: Linux 2.6 (newer, 3) Resent-Date: Sat, 17 May 2008 23:11:44 -0400 X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:18038 Archived-At: ran emacs -Q Following file is /tmp/tt.adb procedure test(X : Integer) is Y : Integer; begin case X is when 1 => -- xxx if X > 5 then Y := 5; end if; when 2 => if X > 5 then Y := 5; end if; end case; The second when clause is indented properly the first is not. The "cause" is the comment xxx. If it is removed, indentation is correct. Thank you for emacs and for ada-mode; both of which are great. In GNU Emacs 22.2.1 (i686-pc-linux-gnu, GTK+ Version 2.12.8) of 2008-05-15 on ajglap Windowing system distributor `The X.Org Foundation', version 11.0.10300000 configured using `configure '--prefix=/usr' '--host=i686-pc-linux-gnu' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--datadir=/usr/share' '--sysconfdir=/etc' '--localstatedir=/var/lib' '--program-suffix=-emacs-22' '--infodir=/usr/share/info/emacs-22' '--without-carbon' '--with-sound' '--with-x' '--with-toolkit-scroll-bars' '--with-jpeg' '--with-tiff' '--with-gif' '--with-png' '--with-xpm' '--with-x-toolkit=gtk' '--without-hesiod' '--without-kerberos' '--without-kerberos5' '--build=i686-pc-linux-gnu' 'build_alias=i686-pc-linux-gnu' 'host_alias=i686-pc-linux-gnu' 'CFLAGS=-O2 -march=prescott -pipe'' 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: C locale-coding-system: nil default-enable-multibyte-characters: t Major mode: Ada Minor modes in effect: tooltip-mode: t mouse-wheel-mode: t file-name-shadow-mode: t global-font-lock-mode: t font-lock-mode: t blink-cursor-mode: t unify-8859-on-encoding-mode: t utf-translate-cjk-mode: t auto-compression-mode: t line-number-mode: t Recent input: C-x C-s M-x e m a c s - b u g SPC SPC b u g C-g C-g M-x a p r b u g M-x r e p o r t - e m Recent messages: Loading advice...done Loading ada-mode...done Loading tabify...done Wrote /tmp/tt.adb Making completion list... Quit [2 times] Loading apropos...done Loading emacsbug... Loading regexp-opt...done Loading emacsbug...done