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 4f4b8a1..0736094
--- a/packages/ada-mode/gpr-wisi.el
+++ b/packages/ada-mode/gpr-wisi.el
@@ -2,7 +2,7 @@
 ;;
 ;; [1] GNAT user guide (info "gnat_ugn")
 ;;
-;; Copyright (C) 2013 Free Software Foundation, Inc.
+;; Copyright (C) 2013, 2014 Free Software Foundation, Inc.
 ;;
 ;; Author: Stephen Leake <stephen_leake@member.fsf.org>
 ;;
@@ -25,8 +25,6 @@
 ;;
 ;;; code style
 ;;
-;; not using lexical-binding or cl-lib because we support Emacs 23
-;;
 ;; I don't use 'pcase', because it gives _really_ confusing errors
 ;; when I forget a ')' somewhere. Even worse, the error message is
 ;; given when you use edebug on a defun, not when you eval it. This
@@ -46,6 +44,7 @@
     block-middle
     block-end
     close-paren
+    list-break
     open-paren
     statement-end
     statement-other
@@ -53,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)))
@@ -115,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)))
 
@@ -155,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