Spelling fixes.

14 files changed, 23 insertions, 24 deletions

diff --git a/lisp/cedet/ede.el b/lisp/cedet/ede.el
index ce3536d53ee..22fe362d5d9 100644
--- a/lisp/cedet/ede.el
+++ b/lisp/cedet/ede.el
@@ -1358,13 +1358,13 @@ Return the first non-nil value returned by PROC."
 (defmethod ede-system-include-path ((this ede-project))
   "Get the system include path used by project THIS."
   nil)
-  
+
 (defmethod ede-system-include-path ((this ede-target))
   "Get the system include path used by project THIS."
   nil)
 
 (defmethod ede-source-paths ((this ede-project) mode)
-  "Get the base to all source trees in the current projet for MODE.
+  "Get the base to all source trees in the current project for MODE.
 For example, <root>/src for sources of c/c++, Java, etc,
 and <root>/doc for doc sources."
   nil)
diff --git a/lisp/cedet/ede/auto.el b/lisp/cedet/ede/auto.el
index f6446db9108..152f8130ad7 100644
--- a/lisp/cedet/ede/auto.el
+++ b/lisp/cedet/ede/auto.el
@@ -68,7 +68,7 @@ into memory.")
 
      ;; Add new types of dirmatches here.
 
-     ;; Error for wierd stuff
+     ;; Error for weird stuff
      (t (error "Unknown dirmatch type.")))))
 
 
@@ -285,7 +285,7 @@ the current buffer."
             ;; If this file DOES NOT match dirmatch, we set the callfcn
             ;; to nil, meaning don't load the ede support file for this
             ;; type of project.  If it does match, we will load the file
-            ;; and use a more accurate programatic match from there.
+            ;; and use a more accurate programmatic match from there.
             (unless (ede-project-dirmatch-p file dirmatch)
               (setq callfcn nil))))
         ;; Call into the project support file for a match.
diff --git a/lisp/cedet/ede/autoconf-edit.el b/lisp/cedet/ede/autoconf-edit.el
index 8144b135ac5..ebfb4154d81 100644
--- a/lisp/cedet/ede/autoconf-edit.el
+++ b/lisp/cedet/ede/autoconf-edit.el
@@ -165,7 +165,7 @@ items such as CHECK_HEADERS."
     (setq param (substring param (match-end 0))))
   (when (string-match "\\s-*\\]?\\s-*\\'" param)
     (setq param (substring param 0  (match-beginning 0))))
-  ;; Look for occurances of backslash newline
+  ;; Look for occurrences of backslash newline
   (while (string-match "\\s-*\\\\\\s-*\n\\s-*" param)
     (setq param (replace-match " " t t param)))
   param)
diff --git a/lisp/cedet/inversion.el b/lisp/cedet/inversion.el
index 6a13a12e8e1..6b0f007916b 100644
--- a/lisp/cedet/inversion.el
+++ b/lisp/cedet/inversion.el
@@ -348,7 +348,7 @@ Optional argument RESERVED is saved for later use."
 
 ;;;###autoload
 (defun inversion-require-emacs (emacs-ver xemacs-ver sxemacs-ver)
-  "Declare that you need either EMACS-VER, XEMACS-VER or SXEMACE-ver.
+  "Declare that you need either EMACS-VER, XEMACS-VER or SXEMACS-ver.
 Only checks one based on which kind of Emacs is being run."
   (let ((err (inversion-test 'emacs
                              (cond ((featurep 'sxemacs)
diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el
index 871bcdd6176..02ad6e05d1a 100644
--- a/lisp/cedet/semantic/bovine/c.el
+++ b/lisp/cedet/semantic/bovine/c.el
@@ -390,7 +390,7 @@ Pulls out the symbol list, and call `semantic-c-convert-spp-value-to-hideif-valu
       ;; can then interpret.
       (let ((stream (semantic-lex-spp-symbol-stream spp-symbol)))
         (cond
-         ;; Empyt string means defined, so t.
+         ;; Empty string means defined, so t.
          ((null stream) t)
          ;; A list means a parsed macro stream.
          ((listp stream)
@@ -515,7 +515,7 @@ code to parse."
           ;; should be skipped.
           (semantic-c-skip-conditional-section)
           (setq semantic-lex-end-point (point))
-          
+
           ;; @TODO -somewhere around here, we also need to skip
           ;; other sections of the conditional.
 
diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el
index f666491d667..61760dd3fe8 100644
--- a/lisp/cedet/semantic/complete.el
+++ b/lisp/cedet/semantic/complete.el
@@ -1555,7 +1555,7 @@ number of completions initially.  Pressing TAB will show the
 extended set.
 
 Quiet: Only show completions when we have narrowed all
-posibilities down to a maximum of
+possibilities down to a maximum of
 `semantic-displayor-tooltip-initial-max-tags' tags.  Pressing TAB
 multiple times will also show completions.
 
@@ -2239,4 +2239,3 @@ will perform the completion."
 ;; End:
 
 ;;; semantic/complete.el ends here
-
diff --git a/lisp/cedet/semantic/db-global.el b/lisp/cedet/semantic/db-global.el
index 0d144483cb9..a7bb130810e 100644
--- a/lisp/cedet/semantic/db-global.el
+++ b/lisp/cedet/semantic/db-global.el
@@ -48,7 +48,7 @@ in a GNU Global supported hierarchy.
 Two sanity checks are performed to assure (a) that GNU global program exists
 and (b) that the GNU global program version is compatibility with the database
 version.  If optional NOERROR is nil, then an error may be signalled on version
-mismatch.  If NOERROR is not nil, then no error will be signlled.  Instead
+mismatch.  If NOERROR is not nil, then no error will be signaled.  Instead
 return value will indicate success or failure with non-nil or nil respective
 values."
   (interactive
diff --git a/lisp/cedet/semantic/db-typecache.el b/lisp/cedet/semantic/db-typecache.el
index 94999a2797b..0da98a6d357 100644
--- a/lisp/cedet/semantic/db-typecache.el
+++ b/lisp/cedet/semantic/db-typecache.el
@@ -584,7 +584,7 @@ If there isn't one, create it.
     (dolist (P path)
       (condition-case nil
           (oset P pointmax nil)
-        ;; Pointmax may not exist for all tables disovered in the
+        ;; Pointmax may not exist for all tables discovered in the
         ;; path.
         (error nil))
       (semantic-reset (semanticdb-get-typecache P)))))
diff --git a/lisp/cedet/semantic/decorate/include.el b/lisp/cedet/semantic/decorate/include.el
index ede5c890163..0c2c5e3ce37 100644
--- a/lisp/cedet/semantic/decorate/include.el
+++ b/lisp/cedet/semantic/decorate/include.el
@@ -589,7 +589,7 @@ This means that Semantic cannot find a file associated with this tag
 on disk, but a database table of tags has been associated with it.
 
 This means that the include will still be used to find tags for
-searches, but you connot visit this include.\n\n")
+searches, but you cannot visit this include.\n\n")
       (princ "This Header is now represented by the following database table:\n\n  ")
       (princ (object-print table))
       )))
diff --git a/lisp/cedet/semantic/fw.el b/lisp/cedet/semantic/fw.el
index c14ffb77169..5a12047eb76 100644
--- a/lisp/cedet/semantic/fw.el
+++ b/lisp/cedet/semantic/fw.el
@@ -85,7 +85,7 @@
                     c)))
             event))
         (defun semantic-popup-menu (menu)
-          "Blockinig version of `popup-menu'"
+          "Blocking version of `popup-menu'"
           (popup-menu menu)
           ;; Wait...
           (while (popup-up-p) (dispatch-event (next-event))))
@@ -139,7 +139,7 @@
         'run-mode-hooks
       'run-hooks))
 
-  ;; Fancy compat useage now handled in cedet-compat
+  ;; Fancy compat usage now handled in cedet-compat
   (defalias 'semantic-subst-char-in-string 'subst-char-in-string)
   )
 
diff --git a/lisp/cedet/semantic/lex-spp.el b/lisp/cedet/semantic/lex-spp.el
index 5fe900452a0..406f2900563 100644
--- a/lisp/cedet/semantic/lex-spp.el
+++ b/lisp/cedet/semantic/lex-spp.el
@@ -646,7 +646,7 @@ be merged recursively."
                  ;; #define FOO(a) foo##a##bar
                  (semantic-lex-spp-symbol-merge (cadr tok)))
                 (t
-                 (message "Invalid merge macro ecountered; \
+                 (message "Invalid merge macro encountered; \
 will return empty string instead.")
                  "")))
              txt
diff --git a/lisp/cedet/semantic/symref/filter.el b/lisp/cedet/semantic/symref/filter.el
index c294fd1727e..c6aa48bfbc3 100644
--- a/lisp/cedet/semantic/symref/filter.el
+++ b/lisp/cedet/semantic/symref/filter.el
@@ -101,7 +101,7 @@ tag that contains point, and return that."
        (semantic-tag-start tag)
        (semantic-tag-end tag))
       (when (called-interactively-p 'interactive)
-        (message "Found %d occurances of %s in %.2f seconds"
+        (message "Found %d occurrences of %s in %.2f seconds"
                  Lcount (semantic-tag-name target)
                  (semantic-elapsed-time start (current-time))))
       Lcount)))
diff --git a/lisp/cedet/semantic/tag-ls.el b/lisp/cedet/semantic/tag-ls.el
index d6d2c203aa8..094ea554287 100644
--- a/lisp/cedet/semantic/tag-ls.el
+++ b/lisp/cedet/semantic/tag-ls.el
@@ -66,7 +66,7 @@ have values, they must still match."
 
 (define-overloadable-function semantic--tag-similar-types-p (tag1 tag2)
   "Compare the types of TAG1 and TAG2.
-This functions can be overriden, for example to compare a fully
+This function can be overridden, for example to compare a fully
 qualified with an unqualified type."
   (cond
    ((and (null (semantic-tag-type tag1))
@@ -80,7 +80,7 @@ qualified with an unqualified type."
 
 (defun semantic--tag-similar-types-p-default (tag1 tag2)
   "Compare the types of TAG1 and TAG2.
-This functions can be overriden, for example to compare a fully
+This function can be overridden, for example to compare a fully
 qualified with an unqualified type."
   (semantic-tag-of-type-p tag1 (semantic-tag-type tag2)))
 
@@ -97,7 +97,7 @@ Modes that override this function can call `semantic--tag-attribute-similar-p-de
 to do the default equality tests if ATTR is not special for that mode.")
 
 (defun semantic--tag-attribute-similar-p-default (attr value1 value2 ignorable-attributes)
-  "For ATTR, VALUE1, VALUE2 and IGNORABLE-ATTRIBUTES, test for similarness."
+  "For ATTR, VALUE1, VALUE2 and IGNORABLE-ATTRIBUTES, test for similarity."
   (cond
    ;; Tag sublists require special testing.
    ((and (listp value1) (semantic-tag-p (car value1))
@@ -131,7 +131,7 @@ Similar tags that have sub-tags such as arg lists or type members,
 are similar w/out checking the sub-list of tags.
 Optional argument IGNORABLE-ATTRIBUTES are attributes to ignore while comparing similarity.
 By default, `semantic-tag-similar-ignorable-attributes' is referenced for
-attributes, and IGNOREABLE-ATTRIBUTES will augment this list.
+attributes, and IGNORABLE-ATTRIBUTES will augment this list.
 
 Note that even though :name is not an attribute, it can be used to
 to indicate lax comparison of names via `semantic--tag-similar-names-p'")
@@ -207,7 +207,7 @@ Return the name of the first tag of class `package' in STREAM."
 
 (define-overloadable-function semantic-tag-full-name (tag &optional stream-or-buffer)
   "Return the fully qualified name of TAG in the package hierarchy.
-STREAM-OR-BUFFER can be anything convertable by `semantic-something-to-stream',
+STREAM-OR-BUFFER can be anything convertible by `semantic-something-to-stream',
 but must be a toplevel semantic tag stream that contains TAG.
 A Package Hierarchy is defined in UML by the way classes and methods
 are organized on disk.  Some languages use this concept such that a
diff --git a/lisp/cedet/semantic/tag.el b/lisp/cedet/semantic/tag.el
index 08fe467b367..38166871cea 100644
--- a/lisp/cedet/semantic/tag.el
+++ b/lisp/cedet/semantic/tag.el
@@ -554,7 +554,7 @@ You can identify a faux tag with `semantic-tag-faux-p'"
   "Set TAG name to NAME."
   (setcar tag name))
 
-;;; TAG Proxys
+;;; TAG Proxies
 ;;
 ;; A new kind of tag is a TAG PROXY.  These are tags that have some
 ;; minimal number of features set, such as name and class, but have a
@@ -570,7 +570,7 @@ two arguments, DATA and TAG.  TAG is a proxy tag that needs
 to be resolved, and DATA is the DATA passed into this function.
 DATA is data to help resolve the proxy.  DATA can be an EIEIO object,
 such that FUNCTION is a method.
-FUNCTION should return a list of tags, preferrably one tag."
+FUNCTION should return a list of tags, preferably one tag."
   (let ((sym (make-symbol ":tag-proxy")))
     (put sym 'proxy-function function)
     (put sym 'proxy-data data)