emacs_ada_mode_8.1.0_114ab44a/test/ada_mode-incremental_recover_04.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
-- Editing an aggregate used to cause incorrect faces.
--EMACSCMD:(setq skip-recase-test t skip-reindent-test t)
package body Ada_Mode.Incremental_Recover_04 is

   function Factory return WisiToken.Parse.Parser_Access
   is
      --EMACSCMD:(progn (end-of-line 0)(insert " begin"))
      --EMACSCMD:(progn (delete-region (line-beginning-position 3)(line-beginning-position 4)))
      --EMACSCMD:(test-face "Ada.Finalization.Limited_Controlled" nil)
      Result : access WisiToken.Parse.LR.Parser.Parser :=
        new WisiToken.Parse.LR.Parser.Parser'
          (Ada.Finalization.Limited_Controlled with
           User_Data                      => new Parse_Data_Type,
           Table                          => Parse_Table,
           Productions                    => Productions,
           Language_Fixes                 => Language_Fixes,
           Language_Matching_Begin_Tokens => Language_Matching_Begin_Tokens,
           Language_String_ID_Set         => Language_String_ID_Set,
           Partial_Parse_Active           => Partial_Parse_Active,
           Partial_Parse_Byte_Goal        => Partial_Parse_Byte_Goal,
           others                         => <>);
   begin
      Result.Parser.Tree.Lexer := Lexer;
      return WisiToken.Parse.Parser_Access (Result);
   end Factory;
end Ada_Mode.Incremental_Recover_04;