Spelling fixes

* lisp/cedet/semantic/doc.el (semantic-documentation-comment-preceding-tag):
Rename from semantic-documentation-comment-preceeding-tag.  All
uses changed.  Leave an obsolete alias behind.
* src/lisp.h (DEFINE_NON_NIL_Q_SYMBOL_MACROS):
Rename from DEFINE_NONNIL_Q_SYMBOL_MACROS.  All uses changed.

3 files changed, 14 insertions, 4 deletions

diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog
index 838a2693491..c9ddc382d50 100644
--- a/lisp/cedet/ChangeLog
+++ b/lisp/cedet/ChangeLog
@@ -1,3 +1,10 @@
+2015-02-22  Paul Eggert  <eggert@cs.ucla.edu>
+
+        Spelling fixes
+        * semantic/doc.el (semantic-documentation-comment-preceding-tag):
+        Rename from semantic-documentation-comment-preceeding-tag.  All
+        uses changed.  Leave an obsolete alias behind.
+
 2015-02-16  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * semantic/db-el.el (semanticdb-elisp-sym->tag): Fix copy&paste error
diff --git a/lisp/cedet/semantic/doc.el b/lisp/cedet/semantic/doc.el
index 874763f0a7f..3ceb3510ad2 100644
--- a/lisp/cedet/semantic/doc.el
+++ b/lisp/cedet/semantic/doc.el
@@ -56,13 +56,12 @@ If nosnarf if 'lex, then only return the lex token."
           doctmp
           ;; Check just before the definition.
           (when (semantic-tag-with-position-p tag)
-            (semantic-documentation-comment-preceeding-tag tag nosnarf))
+            (semantic-documentation-comment-preceding-tag tag nosnarf))
           ;;  Let's look for comments either after the definition, but before code:
           ;; Not sure yet.  Fill in something clever later....
           nil))))))
 
-;; FIXME this is not how you spell "preceding".
-(defun semantic-documentation-comment-preceeding-tag (&optional tag nosnarf)
+(defun semantic-documentation-comment-preceding-tag (&optional tag nosnarf)
   "Find a comment preceding TAG.
 If TAG is nil.  use the tag under point.
 Searches the space between TAG and the preceding tag for a comment,
@@ -84,6 +83,10 @@ just the lexical token and not the string."
         ;; of a function.
         (semantic-doc-snarf-comment-for-tag nosnarf)))
     ))
+(define-obsolete-function-alias
+  'semantic-documentation-comment-preceeding-tag
+  'semantic-documentation-comment-preceding-tag
+  "25.1")
 
 (defun semantic-doc-snarf-comment-for-tag (nosnarf)
   "Snarf up the comment at POINT for `semantic-documentation-for-tag'.
diff --git a/lisp/cedet/srecode/document.el b/lisp/cedet/srecode/document.el
index 9f106a40660..47577844c74 100644
--- a/lisp/cedet/srecode/document.el
+++ b/lisp/cedet/srecode/document.el
@@ -395,7 +395,7 @@ It is assumed that the comment occurs just in front of FCN-IN."
     (beginning-of-line)
     (forward-char -1)
 
-    (let ((lextok (semantic-documentation-comment-preceeding-tag fcn-in 'lex))
+    (let ((lextok (semantic-documentation-comment-preceding-tag fcn-in 'lex))
           (doctext
            (srecode-document-function-name-comment fcn-in))
           )