X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/b7974385f6c7b5836e0fdb022ed22df55464a7ec..11b130e1353349b0ac612811e598eb3c93f75365:/packages/ada-mode/ada-wisi-opentoken.el

diff --git a/packages/ada-mode/ada-wisi-opentoken.el b/packages/ada-mode/ada-wisi-opentoken.el
index 651dbceae..7b7ad0b44 100644
--- a/packages/ada-mode/ada-wisi-opentoken.el
+++ b/packages/ada-mode/ada-wisi-opentoken.el
@@ -43,14 +43,14 @@
   ;; included in package specs that exist solely to define OpenToken
   ;; grammar fragments.
   (save-excursion
-    (let ((token-text (nth 1 (wisi-backward-token))))
+    (let ((token-text (wisi-token-text (wisi-backward-token))))
       (cond
        ((equal token-text "<=")
 	(back-to-indentation)
 	(+ (current-column) ada-indent-broken))
 
        ((member token-text '("+" "&"))
-	(while (not (equal "<=" (nth 1 (wisi-backward-token)))))
+	(while (not (equal "<=" (wisi-token-text (wisi-backward-token)))))
 	(back-to-indentation)
 	(+ (current-column) ada-indent-broken))
        ))))