Doc/message fixes.

7 files changed, 71 insertions, 46 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e71b1b2f34d..cf6b0d4e5d5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,29 @@
 2009-10-01  Glenn Morris  <rgm@gnu.org>
 
+        * cedet/cedet-files.el (cedet-directory-name-to-file-name):
+        * cedet/cedet-idutils.el (cedet-idutils-search)
+        (cedet-idutils-expand-filename, cedet-idutils-support-for-directory)
+        (cedet-idutils-version-check):
+        * cedet/cedet.el (cedet-version):
+        * cedet/data-debug.el (data-debug-insert-overlay-button)
+        (data-debug-insert-overlay-list-button)
+        (data-debug-insert-buffer-button)
+        (data-debug-insert-buffer-list-button)
+        (data-debug-insert-process-button, data-debug-insert-ring-button)
+        (data-debug-insert-widget, data-debug-insert-stuff-list-button)
+        (data-debug-insert-stuff-vector-button)
+        (data-debug-insert-symbol-button, data-debug-insert-string)
+        (data-debug-insert-number, data-debug-insert-lambda-expression)
+        (data-debug-insert-nil, data-debug-insert-simple-thing)
+        (data-debug-insert-custom, data-debug-edebug-expr):
+        * cedet/ede.el (ede-auto-add-method, ede-project-class-files)
+        (global-ede-mode-map, ede-new, ede-debug-target)
+        (ede-customize-current-target, ede-buffers, ede-map-buffers, ede-set):
+        * cedet/semantic.el (semantic-minimum-working-buffer-size)
+        (semantic-fetch-tags, semantic-submode-list)
+        (semantic-default-submodes):
+        Doc/message fixes.
+
         * vc-cvs.el (vc-cvs-parse-entry): Be more careful with the
         match-data.  (Bug#4555).
 
diff --git a/lisp/cedet/cedet-files.el b/lisp/cedet/cedet-files.el
index b7d9b5dbdbd..850526681b7 100644
--- a/lisp/cedet/cedet-files.el
+++ b/lisp/cedet/cedet-files.el
@@ -1,6 +1,6 @@
 ;;; cedet-files.el --- Common routines dealing with file names.
 
-;;; Copyright (C) 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2007, 2008, 2009  Free Software Foundation, Inc.
 
 ;; Author: Eric M. Ludlam <eric@siege-engine.com>
 
@@ -28,7 +28,7 @@
 
 (defun cedet-directory-name-to-file-name (referencedir &optional testmode)
   "Convert the REFERENCEDIR (a full path name) into a filename.
-Convert directory seperation characters into ! characters.
+Convert directory separation characters into ! characters.
 Optional argument TESTMODE is used by tests to avoid conversion
 to the file's truename, and dodging platform tricks."
   (let ((file referencedir))
diff --git a/lisp/cedet/cedet-idutils.el b/lisp/cedet/cedet-idutils.el
index 3635f7fc8ae..1aeccb53058 100644
--- a/lisp/cedet/cedet-idutils.el
+++ b/lisp/cedet/cedet-idutils.el
@@ -1,6 +1,6 @@
 ;;; cedet-idutils.el --- ID Utils support for CEDET.
 
-;;; Copyright (C) 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2009  Free Software Foundation, Inc.
 
 ;; Author: Eric M. Ludlam <eric@siege-engine.com>
 ;; Version: 0.2
@@ -44,7 +44,7 @@
   :group 'cedet)
 
 (defun cedet-idutils-search (searchtext texttype type scope)
-  "Perform a search with IDUtils, return the created buffer.
+  "Perform a search with ID Utils, return the created buffer.
 SEARCHTEXT is text to find.
 TEXTTYPE is the type of text, such as 'regexp, 'string, 'tagname,
 'tagregexp, or 'tagcompletions.
@@ -109,7 +109,7 @@ Return the created buffer with with program output."
 ;;; UTIL CALLS
 ;;
 (defun cedet-idutils-expand-filename (filename)
-  "Expand the FILENAME with IDUtils.
+  "Expand the FILENAME with ID Utils.
 Return a filename relative to the default directory."
   (interactive "sFile: ")
   (let ((ans (save-excursion
@@ -129,7 +129,7 @@ Return a filename relative to the default directory."
     ans))
 
 (defun cedet-idutils-support-for-directory (&optional dir)
-  "Return non-nil if IDUtils has a support file for DIR.
+  "Return non-nil if ID Utils has a support file for DIR.
 If DIR is not supplied, use the current default directory.
 This works by running lid on a bogus symbol, and looking for
 the error code."
@@ -168,7 +168,7 @@ return nil."
         (if (inversion-check-version rev nil cedet-idutils-min-version)
             (if noerror
                 nil
-              (error "Version of ID Utis is %s.  Need at least %s"
+              (error "Version of ID Utils is %s.  Need at least %s"
                      rev cedet-idutils-min-version))
           ;; Else, return TRUE, as in good enough.
           (when (interactive-p)
diff --git a/lisp/cedet/cedet.el b/lisp/cedet/cedet.el
index c98dc9b8893..73e2c5ae299 100644
--- a/lisp/cedet/cedet.el
+++ b/lisp/cedet/cedet.el
@@ -1,7 +1,7 @@
 ;;; cedet.el --- Setup CEDET environment
 
-;;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
-;;; Free Software Foundation, Inc.
+;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
+;;   Free Software Foundation, Inc.
 
 ;; Author: David Ponce <david@dponce.com>
 ;; Maintainer: Eric M. Ludlam  <zappo@gnu.org>
@@ -94,7 +94,7 @@ REQUESTED VERSION is the version requested by the CEDET load script.
 See `cedet-packages' for details.
 
 FILE VERSION is the version number found in the source file
-for the specificed PACKAGE.
+for the specified PACKAGE.
 
 LOADED VERSION is the version of PACKAGE current loaded in Emacs
 memory and (presumably) running in this Emacs instance.  Value is X
diff --git a/lisp/cedet/data-debug.el b/lisp/cedet/data-debug.el
index d132e47fc9a..85455140d4a 100644
--- a/lisp/cedet/data-debug.el
+++ b/lisp/cedet/data-debug.el
@@ -1,6 +1,6 @@
 ;;; data-debug.el --- Datastructure Debugger
 
-;; Copyright (C) 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2007, 2008, 2009  Free Software Foundation, Inc.
 
 ;; Author: Eric M. Ludlam  <zappo@gnu.org>
 ;; Version: 0.2
@@ -111,7 +111,7 @@ PREFIX specifies what to insert at the start of each line."
 
 (defun data-debug-insert-overlay-button (overlay prefix prebuttontext)
   "Insert a button representing OVERLAY.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the overlay button."
   (let ((start (point))
         (end nil)
@@ -160,7 +160,7 @@ PREFIX specifies what to insert at the start of each line."
                                               prefix
                                               prebuttontext)
   "Insert a button representing OVERLAYLIST.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the overlay list button."
   (let ((start (point))
         (end nil)
@@ -215,7 +215,7 @@ PREFIX specifies what to insert at the start of each line."
 
 (defun data-debug-insert-buffer-button (buffer prefix prebuttontext)
   "Insert a button representing BUFFER.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the buffer button."
   (let ((start (point))
         (end nil)
@@ -264,7 +264,7 @@ PREFIX specifies what to insert at the start of each line."
                                               prefix
                                               prebuttontext)
   "Insert a button representing BUFFERLIST.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the buffer list button."
   (let ((start (point))
         (end nil)
@@ -320,7 +320,7 @@ PREFIX specifies what to insert at the start of each line."
 
 (defun data-debug-insert-process-button (process prefix prebuttontext)
   "Insert a button representing PROCESS.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the process button."
   (let ((start (point))
         (end nil)
@@ -372,7 +372,7 @@ PREFIX specifies what to insert at the start of each line."
                                       prefix
                                       prebuttontext)
   "Insert a button representing RING.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the stuff list button."
   (let* ((start (point))
          (end nil)
@@ -481,7 +481,7 @@ PREBUTTONTEXT is some text between prefix and the stuff list button."
 (defun data-debug-insert-widget (widget prefix prebuttontext)
   "Insert one WIDGET.
 A Symbol is a simple thing, but this provides some face and prefix rules.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the thing."
   (let ((string (dd-propertize (format "#<WIDGET %s>" (car widget))
                                'face 'font-lock-keyword-face)))
@@ -534,7 +534,7 @@ PREFIX specifies what to insert at the start of each line."
                                             prefix
                                             prebuttontext)
   "Insert a button representing STUFFLIST.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the stuff list button."
   (let ((start (point))
         (end nil)
@@ -593,7 +593,7 @@ PREFIX specifies what to insert at the start of each line."
                                             prefix
                                             prebuttontext)
   "Insert a button representing STUFFVECTOR.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the stuff vector button."
   (let* ((start (point))
          (end nil)
@@ -639,8 +639,8 @@ PREBUTTONTEXT is some text between prefix and the stuff vector button."
 
 (defun data-debug-insert-symbol-button (symbol prefix prebuttontext)
   "Insert a button representing SYMBOL.
- PREFIX is the text that preceeds the button.
- PREBUTTONTEXT is some text between prefix and the symbol button."
+PREFIX is the text that precedes the button.
+PREBUTTONTEXT is some text between prefix and the symbol button."
   (let ((string
          (cond ((fboundp symbol)
                 (dd-propertize (concat "#'" (symbol-name symbol))
@@ -664,7 +664,7 @@ PREBUTTONTEXT is some text between prefix and the stuff vector button."
 (defun data-debug-insert-string (thing prefix prebuttontext)
   "Insert one symbol THING.
 A Symbol is a simple thing, but this provides some face and prefix rules.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the thing."
   (let ((newstr thing))
     (while (string-match "\n" newstr)
@@ -680,7 +680,7 @@ PREBUTTONTEXT is some text between prefix and the thing."
 (defun data-debug-insert-number (thing prefix prebuttontext)
   "Insert one symbol THING.
 A Symbol is a simple thing, but this provides some face and prefix rules.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the thing."
   (insert prefix prebuttontext
           (dd-propertize (format "%S" thing)
@@ -691,7 +691,7 @@ PREBUTTONTEXT is some text between prefix and the thing."
 (defun data-debug-insert-lambda-expression (thing prefix prebuttontext)
   "Insert one lambda expression THING.
 A Symbol is a simple thing, but this provides some face and prefix rules.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the thing."
   (let ((txt (prin1-to-string thing)))
     (data-debug-insert-simple-thing
@@ -701,7 +701,7 @@ PREBUTTONTEXT is some text between prefix and the thing."
 ;;; nil thing
 (defun data-debug-insert-nil (thing prefix prebuttontext)
   "Insert one simple THING with a face.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the thing.
 FACE is the face to use."
   (insert prefix prebuttontext)
@@ -717,7 +717,7 @@ FACE is the face to use."
 ;;; simple thing
 (defun data-debug-insert-simple-thing (thing prefix prebuttontext face)
   "Insert one simple THING with a face.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the thing.
 FACE is the face to use."
   (insert prefix prebuttontext)
@@ -733,7 +733,7 @@ FACE is the face to use."
 (defun data-debug-insert-custom (thingstring prefix prebuttontext face)
   "Insert one simple THINGSTRING with a face.
 Use for simple items that need a custom insert.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the thing.
 FACE is the face to use."
   (insert prefix prebuttontext)
@@ -1032,7 +1032,7 @@ Do nothing if already expanded."
 ;; Various commands for displaying complex data structures.
 
 (defun data-debug-edebug-expr (expr)
-  "Dump out the contets of some expression EXPR in edebug with ddebug."
+  "Dump out the contents of some expression EXPR in edebug with ddebug."
   (interactive
    (list (let ((minibuffer-completing-symbol t))
            (read-from-minibuffer "Eval: "
diff --git a/lisp/cedet/ede.el b/lisp/cedet/ede.el
index 54c0c933739..6766c07c556 100644
--- a/lisp/cedet/ede.el
+++ b/lisp/cedet/ede.el
@@ -1,7 +1,7 @@
 ;;; ede.el --- Emacs Development Environment gloss
 
-;;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
-;;; 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
+;;   2007, 2008, 2009  Free Software Foundation, Inc.
 
 ;; Author: Eric M. Ludlam <zappo@gnu.org>
 ;; Keywords: project, make
@@ -75,7 +75,7 @@
   )
 
 (defcustom ede-auto-add-method 'ask
-  "Whether a new source file shoud be automatically added to a target.
+  "Whether a new source file should be automatically added to a target.
 Whenever a new file is encountered in a directory controlled by a
 project file, all targets are queried to see if it should be added.
 If the value is 'always, then the new file is added to the first
@@ -175,7 +175,7 @@ type is required and the load function used.")
                          :proj-file 'ede-simple-projectfile-for-dir
                          :load-type 'ede-simple-load
                          :class-sym 'ede-simple-project))
-  "List of vectos defining how to determine what type of projects exist.")
+  "List of vectors defining how to determine what type of projects exist.")
 
 ;;; Generic project information manager objects
 
@@ -575,7 +575,7 @@ Argument LIST-O-O is the list of objects to choose from."
     (define-key map [menu-bar cedet-menu]
       (cons "Development" cedet-menu-map))
     map)
-  "Keymap used in `global-ede-mode'")
+  "Keymap used in `global-ede-mode'.")
 
 ;; Activate the EDE items in cedet-menu-map
 
@@ -955,7 +955,7 @@ Optional argument NAME is the name to give this project."
                           nil t)))
   ;; Make sure we have a valid directory
   (when (not (file-exists-p default-directory))
-    (error "Cannot create project in non-existant directory %s" default-directory))
+    (error "Cannot create project in non-existent directory %s" default-directory))
   (when (not (file-writable-p default-directory))
     (error "No write permissions for %s" default-directory))
   ;; Create the project
@@ -1136,7 +1136,7 @@ Optional argument FORCE forces the file to be removed without asking."
   (ede-invoke-method 'project-compile-target))
 
 (defun ede-debug-target ()
-  "Debug the current buffer's assocated target."
+  "Debug the current buffer's associated target."
   (interactive)
   (ede-invoke-method 'project-debug-target))
 
@@ -1174,7 +1174,7 @@ Optional argument GROUP is the slot group to display."
   (interactive "P")
   (require 'eieio-custom)
   (if (not (obj-of-class-p ede-object ede-target))
-      (error "Current file is not part of a target."))
+      (error "Current file is not part of a target"))
   (let ((group (if group (eieio-read-customization-group ede-object))))
     (ede-customize-target ede-object group)))
 
@@ -1787,7 +1787,7 @@ This includes buffers controlled by a specific target of PROJECT."
     pl))
 
 (defun ede-buffers ()
-  "Return a list of all buffers controled by an EDE object."
+  "Return a list of all buffers controlled by an EDE object."
   (let ((bl (buffer-list))
         (pl nil))
     (while bl
@@ -1799,7 +1799,7 @@ This includes buffers controlled by a specific target of PROJECT."
     pl))
 
 (defun ede-map-buffers (proc)
-  "Execute PROC on all buffers controled by EDE."
+  "Execute PROC on all buffers controlled by EDE."
   (mapcar proc (ede-buffers)))
 
 (defmethod ede-map-project-buffers ((this ede-project) proc)
@@ -1900,7 +1900,8 @@ Return the first non-nil value returned by PROC."
 
 (defun ede-set (variable value &optional proj)
   "Set the project local VARIABLE to VALUE.
-If VARIABLE is not project local, just use set."
+If VARIABLE is not project local, just use set.  Optional argument PROJ
+is the project to use, instead of `ede-current-project'."
   (let ((p (or proj (ede-current-project)))
         a)
     (if (and p (setq a (assoc variable (oref p local-variables))))
diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el
index 5e78513b0ad..521f8af7942 100644
--- a/lisp/cedet/semantic.el
+++ b/lisp/cedet/semantic.el
@@ -1,7 +1,7 @@
 ;;; semantic.el --- Semantic buffer evaluator.
 
-;;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
-;;; 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;;   2008, 2009  Free Software Foundation, Inc.
 
 ;; Author: Eric M. Ludlam <zappo@gnu.org>
 ;; Keywords: syntax
@@ -526,7 +526,7 @@ is requested."
 (defvar semantic-minimum-working-buffer-size (* 1024 5)
   "*The minimum size of a buffer before working messages are displayed.
 Buffers smaller than will parse silently.
-Bufferse larger than this will display the working progress bar.")
+Buffers larger than this will display the working progress bar.")
 
 (defsubst semantic-parser-working-message (&optional arg)
   "Return the message string displayed while parsing.
@@ -549,7 +549,7 @@ If the buffer cache is up to date, return that.
 If the buffer cache is out of date, attempt an incremental reparse.
 If the buffer has not been parsed before, or if the incremental reparse
 fails, then parse the entire buffer.
-If a lexcial error had been previously discovered and the buffer
+If a lexical error had been previously discovered and the buffer
 was marked unparseable, then do nothing, and return the cache."
   (and
    ;; Is this a semantic enabled buffer?
@@ -995,12 +995,12 @@ Prevent this load system from loading files in twice.")
     global-semanticdb-minor-mode
     global-semantic-idle-summary-mode
     global-semantic-mru-bookmark-mode)
-  "List of auxilliary minor modes in the Semantic package.")
+  "List of auxiliary minor modes in the Semantic package.")
 
 ;;;###autoload
 (defcustom semantic-default-submodes
   '(global-semantic-idle-scheduler-mode global-semanticdb-minor-mode)
-  "List of auxilliary Semantic minor modes enabled by `semantic-mode'.
+  "List of auxiliary Semantic minor modes enabled by `semantic-mode'.
 The possible elements of this list include the following:
 
  `semantic-highlight-func-mode'   - Highlight the current tag.