diff lisp/progmodes/ada-stmt.el @ 97078:2f3e251c6e3c

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.

--- a/lisp/progmodes/ada-stmt.el	Tue Jul 29 09:25:49 2008 +0000
+++ b/lisp/progmodes/ada-stmt.el	Tue Jul 29 13:20:39 2008 +0000
@@ -94,7 +94,7 @@
 
 (define-skeleton ada-case
   "Build skeleton case statement.
-Prompt for the selector expression. Also builds the first when clause."
+Prompt for the selector expression.  Also builds the first when clause."
   "[selector expression]: "
   "case " str " is" \n
   > "when " ("discrete choice: " str " | ") -3 " =>" \n
@@ -266,7 +266,7 @@
 
 
 (define-skeleton ada-package-body
-  "Insert a skeleton package body --  includes a begin statement."
+  "Insert a skeleton package body -- includes a begin statement."
   "[package name]: "
   "package body " str " is" \n
   > _ \n
@@ -275,7 +275,7 @@
 
 
 (define-skeleton ada-private
-  "Undent and start a private section of a package spec. Reindent."
+  "Undent and start a private section of a package spec.  Reindent."
   ()
   < "private" \n
   >)