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 / gpr-wisi.el

diff --git a/packages/ada-mode/gpr-wisi.el b/packages/ada-mode/gpr-wisi.el
old mode 100755 (executable)
new mode 100644 (file)
index bb4dd63..0736094
--- a/packages/ada-mode/gpr-wisi.el
+++ b/packages/ada-mode/gpr-wisi.el
@@ -44,6 +44,7 @@
     block-middle
     block-end
     close-paren
+    list-break
     open-paren
     statement-end
     statement-other
@@ -51,7 +52,8 @@
     ))
 
 (defun gpr-wisi-indent-cache (offset cache)
-  "Return indentation of OFFSET relative to CACHE or containing ancestor of CACHE that is at a line beginning."
+  "Return indentation of OFFSET relative to indentation of line containing CACHE
+or containing ancestor of CACHE that is at a line beginning."
   (let ((indent (current-indentation)))
     (while (and cache
                (not (= (current-column) indent)))
@@ -113,6 +115,20 @@
            (gpr-wisi-indent-cache ada-indent cache))
           ))
 
+       (list-break
+        ;; test/gpr/simple.gpr
+        ;; type GNAT_Version_Type
+        ;;   is ("7.0.1",
+        ;;       "6.2.2", "6.2.1",
+        ;;       "GPL-2012", "GPL-2011");
+        ;;
+        ;; for Source_Dirs use
+        ;;   ("../auto",
+        ;;    External ("GNAT_VERSION") & "/foo",
+        ;;    "../../1553");
+        (wisi-goto-containing cache)
+        (1+ (current-column)))
+
        (open-paren
         (1+ (current-column)))
 
@@ -153,7 +169,7 @@
       (setq cache (wisi-goto-containing cache)))
     (when cache
       (wisi-forward-token); package | project
-      (wisi-forward-token t); name
+      (wisi-token-text (wisi-forward-token)); name
       )))
 
 ;;; debugging