GNU bug report logs - #38566
26.1; ada-mode 6.2.1 incorrect indentation with partial parsing

Previous Next

Full log

View this message in rfc822 format

From: help-debbugs <at> gnu.org (GNU bug Tracking System)
To: Ludovic Brenta <ludovic <at> ludovic-brenta.org>
Subject: bug#38566: closed (closed by ada-mode version 7.0.1)
Date: Fri, 31 Jan 2020 14:10:03 +0000

[Message part 1 (text/plain, inline)]

Your bug report

#38566: 26.1; ada-mode 6.2.1 incorrect indentation with partial parsing

which was filed against the emacs, ada-mode package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to 38566 <at> debbugs.gnu.org.

-- 
38566: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=38566
GNU Bug Tracking System
Contact help-debbugs <at> gnu.org with problems

[Message part 2 (message/rfc822, inline)]

From: Stephen Leake <stephen_leake <at> stephe-leake.org>
To: 38566-close <at> debbugs.gnu.org
Subject: closed by ada-mode version 7.0.1
Date: Fri, 31 Jan 2020 06:09:04 -0800

-- 
-- Stephe

[Message part 3 (message/rfc822, inline)]

From: Ludovic Brenta <ludovic <at> ludovic-brenta.org>
To: bug-gnu-emacs <at> gnu.org
Subject: 26.1; ada-mode 6.2.1 incorrect indentation with partial parsing
Date: Wed, 11 Dec 2019 15:41:20 +0100

X-Debbugs-CC: ada-mode-users <at> nongnu.org
Package: emacs, ada-mode
Version: 26.1
Severity: minor

When we visit one of our larger source files which compiles and
is not yet modified, move point to after a "begin" keyword and hit
RET, ada-mode incorrectly re-indents the "begin" keyword and the
next (new and empty) line.

Expected:

      declare
        procedure Action (Airspace : Env_Volume.T; Info : 
Curtain.Profile.Index.T) is
          [elided]
        end Action;
        procedure Action_Airspaces is new 
Curtain.Profile.Index.Visit_Unskipped_Airspaces_G;
      begin* -- point is here initially; hit RET
        * -- point should come here after RET
        Airspace_Entry_Times_Set.Empty (Airspace_First_Entry_Times, 
Profile_Query);
        -- The query causes the set to be initialised or resized if 
necessary.
        Action_Airspaces (Profile.Curtain, Profile_Query);
      end;

Actual:

      declare
        procedure Action (Airspace : Env_Volume.T; Info : 
Curtain.Profile.Index.T) is
          [elided]
        end Action;
        procedure Action_Airspaces is new 
Curtain.Profile.Index.Visit_Unskipped_Airspaces_G;
        begin -- incorrectly changed indentation after RET
          * -- point is here after RET
        Airspace_Entry_Times_Set.Empty (Airspace_First_Entry_Times, 
Profile_Query);
        -- The query causes the set to be initialised or resized if 
necessary.
        Action_Airspaces (Profile.Curtain, Profile_Query);
      end;

If I forcibly disable partial parsing in this file, the bug disappears.

-- 
Ludovic Brenta.

Previous Next

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