X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/961b79aba3fe032584d43c5a83d8ad5951e721a6..23a624ca1d40fa9cefd7229ac6152b79278a6517:/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
new mode 100644
index bb4dd63d1..07360949e
--- 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