X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/37fc4433fb7e0f99a0ff74ddb23075127b7e4656..23a624ca1d40fa9cefd7229ac6152b79278a6517:/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
old mode 100755
new mode 100644
index 651dbceae..7b7ad0b44
--- 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))
        ))))