diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2008-07-29 13:20:39 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2008-07-29 13:20:39 +0000 |
| commit | 32b1a27f286c7d588ef3c49559d3ecd08d1ef154 (patch) | |
| tree | 78cad2eebed9aafcff124588859a2dfe46d31e84 /lisp/progmodes/ada-stmt.el | |
| parent | 3f7ead30616edd64bf159b74dfd28a9c7ab1c648 (diff) | |
| download | emacs-32b1a27f286c7d588ef3c49559d3ecd08d1ef154.tar.gz | |
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.
Diffstat (limited to 'lisp/progmodes/ada-stmt.el')
| -rw-r--r-- | lisp/progmodes/ada-stmt.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/ada-stmt.el b/lisp/progmodes/ada-stmt.el index 811e026d9ae..8c1a0d285ec 100644 --- a/lisp/progmodes/ada-stmt.el +++ b/lisp/progmodes/ada-stmt.el @@ -94,7 +94,7 @@ Prompt for component type and index subtypes." (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 @@ prompting for the boolean-expression." (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 @@ prompting for the boolean-expression." (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 >) |