16 files changed, 24 insertions, 24 deletions
diff --git a/lisp/cedet/semantic/analyze.el b/lisp/cedet/semantic/analyze.el
index 525086022d3..43e998b852e 100644
--- a/lisp/cedet/semantic/analyze.el
+++ b/lisp/cedet/semantic/analyze.el
@@ -287,7 +287,7 @@ Optional argument THROWSYM specifies a symbol the throw on non-recoverable error
 
     ;; For the middle entries
     (while s
-      ;; Using the tag found in TMP, lets find the tag
+      ;; Using the tag found in TMP, let's find the tag
       ;; representing the full typeographic information of its
       ;; type, and use that to determine the search context for
       ;; (car s)
diff --git a/lisp/cedet/semantic/bovine/el.el b/lisp/cedet/semantic/bovine/el.el
index c19df6aed77..1a4e0d9f6ba 100644
--- a/lisp/cedet/semantic/bovine/el.el
+++ b/lisp/cedet/semantic/bovine/el.el
@@ -515,7 +515,7 @@ Optional argument NOSNARF is ignored."
   (let ((d (semantic-tag-docstring tag)))
     (when (not d)
       (cond ((semantic-tag-with-position-p tag)
-	     ;; Doc isn't in the tag itself.  Lets pull it out of the
+	     ;; Doc isn't in the tag itself.  Let's pull it out of the
 	     ;; sources.
 	     (let ((semantic-elisp-store-documentation-in-tag t))
 	       (setq tag (with-current-buffer (semantic-tag-buffer tag)
diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el
index 18c7b5a1a50..f1aee1ef381 100644
--- a/lisp/cedet/semantic/complete.el
+++ b/lisp/cedet/semantic/complete.el
@@ -1618,7 +1618,7 @@ Display mechanism using tooltip for a list of possible completions.")
 		 (string= (this-command-keys) "\C-i"))
 	    (oset obj typing-count (1+ typing-count)))
 	;; At this point, we know we have too many items.
-	;; Lets be brave, and truncate l
+	;; Let's be brave, and truncate l
 	(setcdr (nthcdr (oref obj max-tags) l) nil)
 	(setq msg (mapconcat 'identity l "\n"))
 	(cond
diff --git a/lisp/cedet/semantic/ctxt.el b/lisp/cedet/semantic/ctxt.el
index 1108e019870..4fef5937bc3 100644
--- a/lisp/cedet/semantic/ctxt.el
+++ b/lisp/cedet/semantic/ctxt.el
@@ -410,7 +410,7 @@ Depends on `semantic-type-relation-separator-character'."
 	  ;; Set our end point.
 	  (setq end (point))
 
-	  ;; Now that we have gotten started, lets do the rest.
+	  ;; Now that we have gotten started, let's do the rest.
 	  (condition-case nil
 	      (while (save-excursion
 		       (forward-char -1)
diff --git a/lisp/cedet/semantic/db-ebrowse.el b/lisp/cedet/semantic/db-ebrowse.el
index d719fde3174..fe5f3c193df 100644
--- a/lisp/cedet/semantic/db-ebrowse.el
+++ b/lisp/cedet/semantic/db-ebrowse.el
@@ -219,7 +219,7 @@ warn instead."
 
 ;JAVE this just instantiates a default empty ebrowse struct?
 ; how would new instances wind up here?
-; the ebrowse class isnt singleton, unlike the emacs lisp one
+; the ebrowse class isn't singleton, unlike the emacs lisp one
 (defvar-mode-local c++-mode semanticdb-project-system-databases
   ()
   "Search Ebrowse for symbols.")
@@ -296,7 +296,7 @@ If there is no database for DIRECTORY available, then
 	(when (string= (oref (car dbs) reference-directory) directory)
 	  (setq found (car dbs))))
       (setq dbs (cdr dbs)))
-    ;;STATIC means DBE cant be used as object, only as a class
+    ;;STATIC means DBE can't be used as object, only as a class
     (let* ((ebrowse-data (semanticdb-ebrowse-get-ebrowse-structure directory))
 	   (dat (car (cdr ebrowse-data)))
 	   (ebd (car dat))
@@ -331,7 +331,7 @@ If there is no database for DIRECTORY available, then
 ;JAVE what it actually seems to do is split the original tree in "tables" associated with files
 ; im not sure it actually works:
 ;   the filename slot sometimes gets to be nil,
-;      apparently for classes which definition cant be found, yet needs to be included in the tree
+;      apparently for classes which definition can't be found, yet needs to be included in the tree
 ;      like library baseclasses
 ;   a file can define several classes
   (let ((T (car (cdr data))));1st comes a header, then the tree
diff --git a/lisp/cedet/semantic/db-typecache.el b/lisp/cedet/semantic/db-typecache.el
index 76428057ef5..ce76dddf359 100644
--- a/lisp/cedet/semantic/db-typecache.el
+++ b/lisp/cedet/semantic/db-typecache.el
@@ -473,7 +473,7 @@ found tag to be loaded."
 	;;       find a type/namespace because everything else is excluded.
 
 	;; If this is not the last entry from the list, then it
-	;; must be a type or a namespace.  Lets double check.
+	;; must be a type or a namespace.  Let's double check.
 	(when (cdr type)
 
 	  ;; From above, there is only one tag in ans, and we prefer
@@ -511,7 +511,7 @@ found tag to be loaded."
 	  ;; This won't liven up the tag since we have a copy, but
 	  ;; we ought to be able to get there and go to the right line.
 	  (find-file-noselect lastfile)
-	;; We don't want to find-file match, so instead lets
+	;; We don't want to find-file match, so instead let's
 	;; push the filename onto the return tag.
 	(when lastans
 	  (setq lastans (semantic-tag-copy lastans nil lastfile))
diff --git a/lisp/cedet/semantic/db.el b/lisp/cedet/semantic/db.el
index 65897b96adb..f83d30ac12a 100644
--- a/lisp/cedet/semantic/db.el
+++ b/lisp/cedet/semantic/db.el
@@ -459,7 +459,7 @@ other than :table."
       (setq cache (cdr cache)))
     (if obj
 	obj ;; Just return it.
-      ;; No object, lets create a new one and return that.
+      ;; No object, let's create a new one and return that.
       (setq obj (funcall desired-class "Cache" :table table))
       (object-add-to-list table 'cache obj)
       obj)))
@@ -510,7 +510,7 @@ other than :table."
       (setq cache (cdr cache)))
     (if obj
 	obj ;; Just return it.
-      ;; No object, lets create a new one and return that.
+      ;; No object, let's create a new one and return that.
       (setq obj (funcall desired-class "Cache" :db db))
       (object-add-to-list db 'cache obj)
       obj)))
@@ -941,7 +941,7 @@ DONTLOAD does not affect the creation of new database objects."
 	  (setq fullfile (file-truename file))
 	  )
 
-	;; If we have a table, but no fullfile, that's ok.  Lets get the filename
+	;; If we have a table, but no fullfile, that's ok.  Let's get the filename
 	;; from the table which is pre-truenamed.
 	(when (and (not fullfile) tab)
 	  (setq fullfile (semanticdb-full-filename tab)))
diff --git a/lisp/cedet/semantic/decorate/include.el b/lisp/cedet/semantic/decorate/include.el
index e32aca54b0f..766a13023e8 100644
--- a/lisp/cedet/semantic/decorate/include.el
+++ b/lisp/cedet/semantic/decorate/include.el
@@ -739,7 +739,7 @@ any decorated referring includes.")
   "Refresh any highlighting in buffers referred to by TABLE.
 If TABLE is not in a buffer, do nothing."
   ;; This cache removal may seem odd in that we are "creating one", but
-  ;; since we cant get in the fcn unless one exists, this ought to be
+  ;; since we can't get in the fcn unless one exists, this ought to be
   ;; ok.
   (let ((c (semanticdb-cache-get
 	    table 'semantic-decoration-unparsed-include-cache)))
diff --git a/lisp/cedet/semantic/doc.el b/lisp/cedet/semantic/doc.el
index e5579d09113..ec3b5878c63 100644
--- a/lisp/cedet/semantic/doc.el
+++ b/lisp/cedet/semantic/doc.el
@@ -56,7 +56,7 @@ If nosnarf if 'lex, then only return the lex token."
 	  ;; Check just before the definition.
 	  (when (semantic-tag-with-position-p tag)
 	    (semantic-documentation-comment-preceeding-tag tag nosnarf))
-	  ;;  Lets look for comments either after the definition, but before code:
+	  ;;  Let's look for comments either after the definition, but before code:
 	  ;; Not sure yet.  Fill in something clever later....
 	  nil))))))
 
diff --git a/lisp/cedet/semantic/edit.el b/lisp/cedet/semantic/edit.el
index e7ed8c5ee47..8115f3c9a16 100644
--- a/lisp/cedet/semantic/edit.el
+++ b/lisp/cedet/semantic/edit.el
@@ -316,7 +316,7 @@ See `semantic-edits-change-leaf-tag' for details on parents."
 		  (setq list-to-search nil)))
 	;; Search list is nil.
 	))
-    ;; If we have a search list, lets go.  Otherwise nothing.
+    ;; If we have a search list, let's go.  Otherwise nothing.
     (while (and list-to-search (not found))
       (if (cdr list-to-search)
           ;; We end when the start of the CDR is after the end of our
diff --git a/lisp/cedet/semantic/format.el b/lisp/cedet/semantic/format.el
index 381801559da..8a099a9bfb0 100644
--- a/lisp/cedet/semantic/format.el
+++ b/lisp/cedet/semantic/format.el
@@ -431,7 +431,7 @@ Optional argument COLOR means highlight the prototype with font-lock colors."
 	 (doc (semantic-tag-docstring tag buf)))
     (when (and (not doc) (not buf) fname)
       ;; If there is no doc, and no buffer, but we have a filename,
-      ;; lets try again.
+      ;; let's try again.
       (save-match-data
 	(setq buf (find-file-noselect fname)))
       (setq doc (semantic-tag-docstring tag buf)))
diff --git a/lisp/cedet/semantic/ia.el b/lisp/cedet/semantic/ia.el
index 3941424e4b5..50de8e4f57f 100644
--- a/lisp/cedet/semantic/ia.el
+++ b/lisp/cedet/semantic/ia.el
@@ -115,7 +115,7 @@ Completion options are calculated with `semantic-analyze-possible-completions'."
       (if (null syms)
 	  (if (semantic-analyze-context-p a)
 	      ;; This is a clever hack.  If we were unable to find any
-	      ;; smart completions, lets divert to how senator derives
+	      ;; smart completions, let's divert to how senator derives
 	      ;; completions.
 	      ;;
 	      ;; This is a way of making this fcn more useful since
@@ -251,8 +251,8 @@ Completion options are calculated with `semantic-analyze-possible-completions'."
   "Jump to DEST, a Semantic tag.
 This helper manages the mark, buffer switching, and pulsing."
   ;; We have a tag, but in C++, we usually get a prototype instead
-  ;; because of header files.  Lets try to find the actual
-  ;; implementaion instead.
+  ;; because of header files.  Let's try to find the actual
+  ;; implementation instead.
   (when (semantic-tag-prototype-p dest)
     (let* ((refs (semantic-analyze-tag-references dest))
 	   (impl (semantic-analyze-refs-impl refs t))
diff --git a/lisp/cedet/semantic/idle.el b/lisp/cedet/semantic/idle.el
index 1c1233303e9..b49d1db1ad5 100644
--- a/lisp/cedet/semantic/idle.el
+++ b/lisp/cedet/semantic/idle.el
@@ -427,7 +427,7 @@ datasets."
 
 (defun semantic-idle-scheduler-work-parse-neighboring-files ()
   "Parse all the files in similar directories to buffers being edited."
-  ;; Lets check to see if EDE matters.
+  ;; Let's check to see if EDE matters.
   (let ((ede-auto-add-method 'never))
     (dolist (a auto-mode-alist)
       (when (eq (cdr a) major-mode)
diff --git a/lisp/cedet/semantic/scope.el b/lisp/cedet/semantic/scope.el
index 64e60fae0f2..16deb245527 100644
--- a/lisp/cedet/semantic/scope.el
+++ b/lisp/cedet/semantic/scope.el
@@ -186,7 +186,7 @@ Use `semantic-ctxt-scoped-types' to find types."
   (save-excursion
     (goto-char position)
     (let ((code-scoped-types nil))
-      ;; Lets ask if any types are currently scoped.  Scoped
+      ;; Let's ask if any types are currently scoped.  Scoped
       ;; classes and types provide their public methods and types
       ;; in source code, but are unrelated hierarchically.
       (let ((sp (semantic-ctxt-scoped-types)))
@@ -249,7 +249,7 @@ are from nesting data types."
       ;;    Analyze the stack of tags we are nested in as parents.
       ;;
 
-      ;; If we have a pparent tag, lets go there
+      ;; If we have a pparent tag, let's go there
       ;; an analyze that stack of tags.
       (when (and pparent (semantic-tag-with-position-p pparent))
 	(semantic-go-to-tag pparent)
diff --git a/lisp/cedet/semantic/symref/grep.el b/lisp/cedet/semantic/symref/grep.el
index 1571622b29a..da250e66bb5 100644
--- a/lisp/cedet/semantic/symref/grep.el
+++ b/lisp/cedet/semantic/symref/grep.el
@@ -102,7 +102,7 @@ ROOTDIR is the root location to run the `find' from.
 FILEPATTERN is a string representing find flags for searching file patterns.
 GREPFLAGS are flags passed to grep, such as -n or -l.
 GREPPATTERN is the pattern used by grep."
-  ;; We have grep-compute-defaults.  Lets use it.
+  ;; We have grep-compute-defaults.  Let's use it.
   (grep-compute-defaults)
   (let* ((grep-expand-keywords semantic-symref-grep-expand-keywords)
 	 (cmd (grep-expand-template grep-find-template
diff --git a/lisp/cedet/semantic/texi.el b/lisp/cedet/semantic/texi.el
index 30c5a5cf8b6..e79953400a7 100644
--- a/lisp/cedet/semantic/texi.el
+++ b/lisp/cedet/semantic/texi.el
@@ -579,7 +579,7 @@ Note: TYPE not yet implemented."
 ;; 	    (setq doctag (if docstring sourcetag nil))))
 ;; 	  (setq tags (cdr tags)))))
 ;;     ;; If we found a prototype of the function that has some doc, but not the
-;;     ;; actual function, lets make due with that.
+;;     ;; actual function, let's make due with that.
 ;;     (if (not docstring)
 ;; 	(cond ((stringp docstringvar)
 ;; 	       (setq docstring docstringvar