]> code.delx.au - gnu-emacs-elpa/blobdiff - packages/ada-mode/gpr-wisi.el
publish ada-mode 5.1.6, wisi 1.0.6, new package ada-ref-man
[gnu-emacs-elpa] / packages / ada-mode / gpr-wisi.el
index bb4dd63d12d07cc08b537a7ba66f480c7267f4a0..48f5523974b5dd1e14d9d1d6db086ee487a5238b 100644 (file)
@@ -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)))
            (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)))