Add *.info and dir to debbugs

[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
old mode 100755 (executable)
new mode 100644 (file)
index 651dbce..7b7ad0b
--- 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))
        ))))