# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1151656339 0
# Node ID 2a4ed80e93ba1290b1f910bec74132d148892868
# Parent  e9a4b71a2f79e6d716dc3dcffd209b181ab825f7
(ada-which-compiler, ada-mode-menu, ada-compile-mouse-goto-error,
ada-deactivate-properties, ada-no-auto-case): Fix typos in docstrings.

diff -r e9a4b71a2f79 -r 2a4ed80e93ba lisp/progmodes/ada-mode.el
--- a/lisp/progmodes/ada-mode.el	Fri Jun 30 01:54:34 2006 +0000
+++ b/lisp/progmodes/ada-mode.el	Fri Jun 30 08:32:19 2006 +0000
@@ -438,7 +438,7 @@
 
 (defcustom ada-which-compiler 'gnat
   "*Name of the compiler to use.
-This will determine what features are made available through the ada-mode.
+This will determine what features are made available through the Ada mode.
 The possible choices are :
 `gnat': Use Ada Core Technologies' Gnat compiler.  Add some cross-referencing
     features
@@ -460,7 +460,7 @@
 The extensions should include a `.' if needed.")
 
 (defvar ada-mode-menu (make-sparse-keymap "Ada")
-  "Menu for ada-mode.")
+  "Menu for Ada mode.")
 
 (defvar ada-mode-map (make-sparse-keymap)
   "Local keymap used for Ada mode.")
@@ -728,7 +728,7 @@
 ;;------------------------------------------------------------
 
 (defun ada-compile-mouse-goto-error ()
-  "Mouse interface for ada-compile-goto-error."
+  "Mouse interface for `ada-compile-goto-error'."
   (interactive)
   (mouse-set-point last-input-event)
   (ada-compile-goto-error (point))
@@ -906,7 +906,7 @@
             (setq change (cdr change)))))))
 
 (defun ada-deactivate-properties ()
-  "Deactivate ada-mode's properties handling.
+  "Deactivate Ada mode's properties handling.
 This would be a duplicate of font-lock if both are used at the same time."
   (remove-hook 'after-change-functions 'ada-after-change-function t))
 
@@ -977,7 +977,7 @@
 
 ;;------------------------------------------------------------------
 ;; Contextual menus
-;; The Ada-mode comes with contextual menus, bound by default to the right
+;; The Ada mode comes with contextual menus, bound by default to the right
 ;; mouse button.
 ;; Add items to this menu by modifying `ada-contextual-menu'. Note that the
 ;; variable `ada-contextual-menu-on-identifier' is set automatically to t
@@ -1419,7 +1419,7 @@
 
 ;;-----------------------------------------------------------------
 ;;                      auto-casing
-;; Since Ada is case-insensitive, the Ada-mode provides an extensive set of
+;; Since Ada is case-insensitive, the Ada mode provides an extensive set of
 ;; functions to auto-case identifiers, keywords, ...
 ;; The basic rules for autocasing are defined through the variables
 ;; `ada-case-attribute', `ada-case-keyword' and `ada-case-identifier'. These
@@ -1766,7 +1766,7 @@
 
 (defun ada-no-auto-case (&optional arg)
   "Do nothing.
-This function can be used for the auto-casing variables in the ada-mode, to
+This function can be used for the auto-casing variables in the Ada mode, to
 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.
@@ -2122,7 +2122,7 @@
 ;;       that are evaluated)
 ;;  Thus the total indentation for a line is the column number of the reference
 ;;  position plus whatever value the evaluation of the second element provides.
-;;  This mechanism is used so that the ada-mode can "explain" how the
+;;  This mechanism is used so that the Ada mode can "explain" how the
 ;;  indentation was calculated, by showing which variables were used.
 ;;
 ;;  The indentation itself is done in only one pass: first we try to guess in
@@ -5268,7 +5268,7 @@
 
 ;; ---------------------------------------------------------
 ;;    Automatic generation of code
-;; The Ada-mode has a set of function to automatically generate a subprogram
+;; The Ada mode has a set of function to automatically generate a subprogram
 ;; or package body from its spec.
 ;; These function only use a primary and basic algorithm, this could use a
 ;; lot of improvement.
@@ -5440,7 +5440,7 @@
 ;;  Read the special cases for exceptions
 (ada-case-read-exceptions)
 
-;;  Setup auto-loading of the other ada-mode files.
+;;  Setup auto-loading of the other Ada mode files.
 (if (equal ada-which-compiler 'gnat)
     (progn
       (autoload 'ada-change-prj                   "ada-xref" nil t)