release ada-mode 5.1.7, wisi 1.1.0; minor format changes in ada-ref-man (take 2)

[gnu-emacs-elpa] / 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 651dbceae3720ad17c35114d34ed39025994022d..7b7ad0b441ba3e15349c3294990d163a9372a8bc 100644 (file)
--- 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))
        ))))