mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Typo fixes for Ada mode.

Browse source 
* 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.
This commit is contained in:
Juanma Barranquero 2008-07-29 13:20:39 +00:00
parent 3f7ead3061
commit 32b1a27f28
5 changed files with 61 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/progmodes/ada-mode.el
View file

@ -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))