Typo fixes for Ada mode.

* progmodes/ada-mode.el (ada-batch-reformat): Doc fix.
  (ada-create-case-exception): Fix typo in docstring.
  (ada-no-auto-case): Return nil, not the docstring.
  (ada-indent-current): Reflow docstring.

* progmodes/ada-prj.el (ada-prj-edit, ada-prj-initialize-values)
  (ada-prj-save-specific-option, ada-prj-field): Fix typos in docstrings.
  (ada-prj-load-from-file): Reflow docstring.
  (ada-prj-display-page): Fix typo in widget.

* progmodes/ada-stmt.el (ada-case, ada-package-body, ada-private):
  Fix typos in docstrings.

* progmodes/ada-xref.el (ada-find-executable, ada-gnat-parse-gpr)
  (ada-compile-current, ada-check-current, ada-run-application)
  (ada-get-ali-file-name): Fix typos in docstrings.
  (ada-xref-confirm-compile, ada-find-references)
  (ada-find-local-references, ada-find-any-references): Doc fixes.
  (ada-get-all-references): Fix typo in error message.
  (ada-xref-current-project): Use `let', not `let*'.
  (ada-do-file-completion, ada-xref-change-buffer): Reflow docstring.

1 files changed, 5 insertions, 5 deletions

diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el
index 0d619258ec5..ec5504e471c 100644
--- a/lisp/progmodes/ada-mode.el
+++ b/lisp/progmodes/ada-mode.el
@@ -1432,7 +1432,7 @@ Casing exception lists are `ada-case-exception' and `ada-case-exception-substrin
 (defun ada-create-case-exception (&optional word)
   "Define WORD as an exception for the casing system.
 If WORD is not given, then the current word in the buffer is used instead.
-The new words is added to the first file in `ada-case-exception-file'.
+The new word is added to the first file in `ada-case-exception-file'.
 The standard casing rules will no longer apply to this word."
   (interactive)
   (let ((previous-syntax-table (syntax-table))
@@ -1752,7 +1752,7 @@ adapt to unusal auto-casing schemes.  Since it does nothing, you can for
 instance use it for `ada-case-identifier' if you don't want any special
 auto-casing for identifiers, whereas keywords have to be lower-cased.
 See also `ada-auto-case' to disable auto casing altogether."
-  )
+  nil)
 
 (defun ada-capitalize-word (&optional arg)
   "Upcase first letter and letters following '_', lower case other letters.
@@ -2189,7 +2189,7 @@ The original line is indented first if `ada-indent-after-return' is non-nil."
 
 (defun ada-batch-reformat ()
   "Re-indent and re-case all the files found on the command line.
-This function should be used from the Unix/Windows command line, with a
+This function should be used from the command line, with a
 command like:
   emacs -batch -l ada-mode -f ada-batch-reformat file1 file2 ..."
 
@@ -2211,8 +2211,8 @@ Return the new position of point or nil if not found."
 
 (defun ada-indent-current ()
   "Indent current line as Ada code.
-Return the calculation that was done, including the reference point and the
-offset."
+Return the calculation that was done, including the reference point
+and the offset."
   (interactive)
   (let ((previous-syntax-table (syntax-table))
 	(orgpoint (point-marker))