[elpa] externals/ada-mode d110a6a08e: Release testing version 7.3.beta

[Stephen Leake]

branch: externals/ada-mode
commit d110a6a08e090901a2d6e5cfa67bdd2b1c7533ee
Author: Stephen Leake <stephen_leake@stephe-leake.org>
Commit: Stephen Leake <stephen_leake@stephe-leake.org>

    Release testing version 7.3.beta
    
    * ada-mode.el: Beta version.
    
    * ada-gnat-xref.el: Fix cl-defgeneric args.
    
    * ada-build.el: Fix latest byte-compiler warnings about quotes in doc
    strings.
    * ada-indent-user-options.el:
    * benchmark-xref.el:
    * gpr-query.el:
---
 NEWS                       |  2 +-
 ada-build.el               |  8 ++++----
 ada-gnat-xref.el           |  4 ++--
 ada-indent-user-options.el | 42 +++++++++++++++++++++---------------------
 ada-mode.el                |  6 +++---
 benchmark-xref.el          |  2 +-
 gpr-query.el               |  4 ++--
 7 files changed, 34 insertions(+), 34 deletions(-)

diff --git a/NEWS b/NEWS
index f6c3b4251b..d0a598d4e3 100644
--- a/NEWS
+++ b/NEWS
@@ -6,7 +6,7 @@ Please send ada-mode bug reports to bug-gnu-emacs@gnu.org, with
 'ada-mode' in the subject. If possible, use M-x report-emacs-bug.
 
 
-* Ada Mode ?
+* Ada Mode 7.3.beta
 9 Jul 2022 beta testing
 
 ** Support incremental parse. Set wisi-incremental-parse-enable t to
diff --git a/ada-build.el b/ada-build.el
index 058d7a97f5..dfc93d4703 100644
--- a/ada-build.el
+++ b/ada-build.el
@@ -1,7 +1,7 @@
 ;; ada-build.el --- Extensions to ada-mode for compiling and running  -*- 
lexical-binding:t -*-
 ;; Ada projects without 'make' or similar tool
 ;;
-;; Copyright (C) 1994, 1995, 1997 - 2017, 2019, 2021  Free Software 
Foundation, Inc.
+;; Copyright (C) 1994, 1995, 1997 - 2017, 2019, 2021 - 2022  Free Software 
Foundation, Inc.
 ;;
 ;; Author: Stephen Leake <stephen_leake@member.fsf.org>
 ;; Maintainer: Stephen Leake <stephen_leake@member.fsf.org>
@@ -223,7 +223,7 @@ Returns the project if a file is selected, nil otherwise."
 (defun ada-build-require-project-file ()
   "Ensure that a project file is selected, return the project.
 Action when no project file is currently selected is determined
-by `ada-build-prompt-prj':
+by ada-build-prompt-prj:
 
 default - Search for a project file in the current directory with
 the same name as the main file. If not found, use a default
@@ -238,8 +238,8 @@ prompt - Prompt for a project file; thow error if user 
aborts.
 
 error - Throw an error (no prompt, no default project).
 
-'search' means look for a file with an extension in
-`wisi-prj-file-extensions'.
+\"search\" means look for a file with an extension in
+`wisi-prj-file-extensions\".
 
 An error result does not change the current project."
   (let ((prj (project-current)))
diff --git a/ada-gnat-xref.el b/ada-gnat-xref.el
index e357d285fb..eb866eb791 100644
--- a/ada-gnat-xref.el
+++ b/ada-gnat-xref.el
@@ -5,7 +5,7 @@
 ;;
 ;; GNAT is provided by AdaCore; see http://libre.adacore.com/
 ;;
-;;; Copyright (C) 2012 - 2021  Free Software Foundation, Inc.
+;;; Copyright (C) 2012 - 2022  Free Software Foundation, Inc.
 ;;
 ;; Author: Stephen Leake <stephen_leake@member.fsf.org>
 ;; Maintainer: Stephen Leake <stephen_leake@member.fsf.org>
@@ -82,7 +82,7 @@
 (cl-defmethod wisi-xref-completion-table ((_xref gnatxref-xref) _project)
   (wisi-names t t))
 
-(cl-defgeneric wisi-xref-completion-regexp ((_xref gnatxref-xref))
+(cl-defgeneric wisi-xref-completion-regexp (_xref)
   wisi-names-regexp)
 
 (defun ada-gnat-xref-adj-col (identifier col)
diff --git a/ada-indent-user-options.el b/ada-indent-user-options.el
index 1f735b4014..4e4e18d48d 100644
--- a/ada-indent-user-options.el
+++ b/ada-indent-user-options.el
@@ -1,6 +1,6 @@
 ;; user options shared by Ada mode indentation engines  -*- lexical-binding:t 
-*-
 ;;
-;; Copyright (C) 2012, 2013, 2015, 2017 - 2021  Free Software Foundation, Inc.
+;; Copyright (C) 2012, 2013, 2015, 2017 - 2022  Free Software Foundation, Inc.
 ;;
 ;; Author: Stephen Leake <stephen_leake@member.fsf.org>
 ;; Contributors: Simon Wright <simon.j.wright@mac.com>
@@ -94,19 +94,19 @@ An example is:
 (make-variable-buffer-local 'ada-indent-record-rel-type)
 
 (defcustom ada-indent-renames 2
-  "Indentation for `renames' relative to the subprogram keyword.
+  "Indentation for \"renames\" relative to the subprogram keyword.
 
-For `renames' of non-subprograms the indentation is
-`ada-indent-broken' relative to the start of the statement.
+For \"renames\" of non-subprograms the indentation is
+\"ada-indent-broken\" relative to the start of the statement.
 
-If the subprogram has parameters then if `ada-indent-renames' is
-zero or less the indentation is abs `ada-indent-renames' relative
-to the open parenthesis; if `ada-indent-renames' is one or more
+If the subprogram has parameters then if \"ada-indent-renames\" is
+zero or less the indentation is abs \"ada-indent-renames\" relative
+to the open parenthesis; if \"ada-indent-renames\" is one or more
 the indentation is relative to the line containing the subprogram
-keyword ('function' or 'procedure').
+keyword (\"function\" or \"procedure\").
 
 If the subprogram has no parameters then the indentation is
-`ada-indent-broken' relative to the line containing the keyword.
+\"ada-indent-broken\" relative to the line containing the keyword.
 
 Examples:
    ada-indent-renames = 2
@@ -122,15 +122,15 @@ Examples:
 (make-variable-buffer-local 'ada-indent-renames)
 
 (defcustom ada-indent-return 0
-  "Indentation for `return' relative to the matching `function' keyword.
+  "Indentation for \"return\" relative to the matching \"function\" keyword.
 
-If the function has parameters, then if `ada-indent-return' is
-zero or less, the indentation is abs `ada-indent-return' relative
-to the open parenthesis; if `ada-indent-return' is one or more,
-indentation is relative to line containing `function'.
+If the function has parameters, then if \"ada-indent-return\" is
+zero or less, the indentation is abs \"ada-indent-return\" relative
+to the open parenthesis; if \"ada-indent-return\" is one or more,
+indentation is relative to line containing \"function'.
 
-If the function has no parameters, `ada-indent-broken' is used
-relative to line containing `function'.
+If the function has no parameters, \"ada-indent-broken\" is used
+relative to line containing \"function'.
 
 An example is:
    function A (B : Integer)
@@ -140,7 +140,7 @@ An example is:
 (make-variable-buffer-local 'ada-indent-return)
 
 (defcustom ada-indent-use ada-indent-broken
-  "Indentation for the lines in a `use' statement.
+  "Indentation for the lines in a \"use\" statement.
 
 An example is:
    use Ada.Text_IO,
@@ -150,7 +150,7 @@ An example is:
 (make-variable-buffer-local 'ada-indent-use)
 
 (defcustom ada-indent-when 3
-  "Indentation for `when' relative to `exception', `case', `or' in select.
+  "Indentation for \"when\" relative to \"exception', \"case', \"or\" in 
select.
 
 An example is:
    case A is
@@ -160,7 +160,7 @@ An example is:
 (make-variable-buffer-local 'ada-indent-when)
 
 (defcustom ada-indent-with ada-indent-broken
-  "Indentation for the lines in a `with' context clause.
+  "Indentation for the lines in a \"with\" context clause.
 
 An example is:
    with Ada.Text_IO,
@@ -171,7 +171,7 @@ An example is:
 
 (defcustom ada-indent-hanging-rel-exp nil
   "If nil, indent hanging lines in an expression relative to the first line.
-Otherwise, indent by `ada-indent-broken' relative to the start of
+Otherwise, indent by \"ada-indent-broken\" relative to the start of
 the expression."
   :type 'boolean
   :safe #'booleanp)
@@ -186,7 +186,7 @@ the expression."
 (make-variable-buffer-local 'ada-indent-after-trailing-comment)
 
 (defcustom ada-indent-subprogram-is ada-indent-broken
-  "Indentation for `is' relative to `function' or `procedure' when
+  "Indentation for \"is\" relative to \"function\" or \"procedure\" when
 the subprogram body is a short form; \"is null\", expression
 function, etc.
 
diff --git a/ada-mode.el b/ada-mode.el
index 06da4c1229..12eea01d71 100644
--- a/ada-mode.el
+++ b/ada-mode.el
@@ -6,8 +6,8 @@
 ;; Maintainer: Stephen Leake <stephen_leake@stephe-leake.org>
 ;; Keywords: languages
 ;;  ada
-;; Version: 7.2.1
-;; package-requires: ((uniquify-files "1.0.1") (wisi "3.1.8") (emacs "25.3"))
+;; Version: 7.3.beta
+;; package-requires: ((uniquify-files "1.0.1") (wisi "4.0.beta") (emacs 
"25.3"))
 ;; url: http://www.nongnu.org/ada-mode/
 ;;
 ;; This file is part of GNU Emacs.
@@ -117,7 +117,7 @@
 (defun ada-mode-version ()
   "Return Ada mode version."
   (interactive)
-  (let ((version-string "7.2.1.0 beta"))
+  (let ((version-string "7.3.beta"))
     (if (called-interactively-p 'interactive)
        (message version-string)
       version-string)))
diff --git a/benchmark-xref.el b/benchmark-xref.el
index e921e94f95..d7e4580acd 100644
--- a/benchmark-xref.el
+++ b/benchmark-xref.el
@@ -34,7 +34,7 @@
 (defun benchmark-xref (test-list xref-function)
   "TEST-LIST is a list of TEST, where TEST is a list (FILENAME (TARGET ...) 
...).
 For each TEST, open the file, and search for each TARGET,
-starting from point-min. If TARGET is "", start the next test
+starting from point-min. If TARGET is \"\", start the next test
 from current point instead. Then invoke xref-function. Repeat for
 each list of TARGET, using the current file. Show the time for
 each TEST, and the total time.
diff --git a/gpr-query.el b/gpr-query.el
index 9ffc218958..ac74a5f7d1 100644
--- a/gpr-query.el
+++ b/gpr-query.el
@@ -275,7 +275,7 @@ Must match gpr_query.adb Version.")
        ))))
 
 (defun gpr-query--start-process (session command-type)
-  "Start a session process running gpr_query. COMMAND-TYPE is 'xref or 
'symbols."
+  "Start a session process running gpr_query. COMMAND-TYPE is xref or symbols."
   (unless (locate-file gpr-query-exec exec-path '("" ".exe"))
     (user-error "'%s' not found on PATH" gpr-query-exec))
 
@@ -373,7 +373,7 @@ If NO-SYMBOLS is non-nil, don't create the symbols process."
 
 (defun gpr-query-session-wait (session command-type)
   "Wait for the current COMMAND-TYPE command to complete.
-COMMAND-TYPE is one of 'xref or 'symbols."
+COMMAND-TYPE is one of xref or symbols."
   (when (and
         (eq command-type 'symbols)
         (null (gpr-query--session-symbols-process session)))