Subject: bug#272 closed by "Juanma Barranquero" <[email-masked]> ()

From: [email-masked] (Emacs bug Tracking System)

This is an automatic notification regarding your bug report
which was filed against the emacs package:

#272: indentation error in ada-mode

It has been closed by "Juanma Barranquero" <[email-masked]>.

Their explanation is attached below along with your original report.
If this explanation is unsatisfactory and you have not received a
better one in a separate message then please contact "Juanma Barranquero" <[email-masked]> by
replying to this email.

-- 
272: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=272
Emacs Bug Tracking System
Contact [email-masked] with problems
>From [email-masked] Mon Jul 28 04:07:49 2008
Date: Mon, 28 Jul 2008 13:07:45 +0200
From: "Juanma Barranquero" <[email-masked]>
To: [email-masked]
Subject: 

Fixed by this change:

2008-07-28  Stephen Leake  <[email-masked]>

        * progmodes/ada-mode.el (ada-mode): Clean up XEmacs handling.
        Add support for add-log.
        (ada-end-stmt-re): Fix bug - allow comment after 'when'.

>From [email-masked] Sat May 17 19:46:01 2008
From: Allan Gottlieb <[email-masked]>
To: [email-masked]
Subject: indentation error in ada-mode
Date: Sat, 17 May 2008 18:20:14 -0400 (EDT)

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:
<tab> <down> <tab> <down> <tab> <down> <tab> <down> 
<down> <tab> <down> <tab> <down> <tab> <down> <tab> 
<down> <tab> <down> <tab> <backspace> <backspace> <tab> 
<down> <tab> <down> <tab> <down> <tab> <tab> <backspace> 
<backspace> <backspace> C-x C-s M-x e m a c s - b u 
g <return> <backspace> <backspace> <backspace> <backspace> 
SPC SPC <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> b u g <tab> C-g C-g M-x a p 
r <return> b u g <return> <down-mouse-5> <mouse-5> 
<down-mouse-5> <mouse-5> <down-mouse-5> <mouse-5> <double-down-mouse-5> 
<double-mouse-5> <down-mouse-5> <mouse-5> <double-down-mouse-5> 
<double-mouse-5> <down-mouse-5> <mouse-5> <double-down-mouse-5> 
<double-mouse-5> <triple-down-mouse-5> <triple-mouse-5> 
<down-mouse-5> <mouse-5> <double-down-mouse-5> <double-mouse-5> 
<down-mouse-5> <mouse-5> <double-down-mouse-5> <double-mouse-5> 
<down-mouse-4> <mouse-4> <double-down-mouse-4> <double-mouse-4> 
<help-echo> M-x r e p o r t - e m <tab> <return>

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