* packages/ada-mode/* : version 5.1.5

[gnu-emacs-elpa] / packages / ada-mode / ada-wisi.el

diff --git a/packages/ada-mode/ada-wisi.el b/packages/ada-mode/ada-wisi.el
index c5ce9c212058dfd7317a639bfa1cf323aabc5129..d86e93ae8f472dd52c46541c2435daa406817cad 100755 (executable)
--- a/packages/ada-mode/ada-wisi.el
+++ b/packages/ada-mode/ada-wisi.el
@@ -1002,12 +1002,6 @@ cached token, return new indentation for point."
            ;;        1 =>
            (+ (current-column) 1))
 
-          (OF
-           ;; ada_mode-nominal.ads
-           ;; Anon_Array_2 : array (1 .. 10) of
-           ;;   Integer;
-           (ada-wisi-indent-containing ada-indent-broken cache))
-
           (NEW
            ;; ada_mode-nominal.ads
            ;; type Limited_Derived_Type_2 is abstract limited new Private_Type_1 with
@@ -1019,6 +1013,12 @@ cached token, return new indentation for point."
            ;; indenting 'Instance'; containing is 'new'
            (ada-wisi-indent-containing ada-indent-broken cache))
 
+          (OF
+           ;; ada_mode-nominal.ads
+           ;; Anon_Array_2 : array (1 .. 10) of
+           ;;   Integer;
+           (ada-wisi-indent-containing ada-indent-broken cache))
+
           (WHEN
            ;; test/ada_mode-parens.adb
            ;; exit when A.all
@@ -1041,12 +1041,6 @@ cached token, return new indentation for point."
               ;;   Constant_Indexing => Constant_Reference,
               ;; indenting 'Constant_Indexing'; point is on 'with'
               (+ (current-indentation) ada-indent-broken))
-
-             (raise_statement
-              ;; raise_statement: test/ada_mode-nominal.adb
-              ;; raise Constraint_Error with
-              ;;    "help!";
-              (ada-wisi-indent-containing ada-indent-broken cache nil))
              ))
 
           ;; otherwise just hanging
@@ -1193,6 +1187,8 @@ Also return cache at start."
 
 (defun ada-wisi-goto-declaration-end ()
   "For `ada-goto-declaration-end', which see."
+  ;; first goto-declaration-start, so we get the right end, not just
+  ;; the current statement end.
   (wisi-goto-end-1 (ada-wisi-goto-declaration-start)))
 
 (defun ada-wisi-goto-declarative-region-start ()