Fix typo.

7 files changed, 9 insertions, 9 deletions

diff --git a/lisp/ediff-diff.el b/lisp/ediff-diff.el
index 31c54636c68..f6c6a850329 100644
--- a/lisp/ediff-diff.el
+++ b/lisp/ediff-diff.el
@@ -1287,7 +1287,7 @@ arguments to `skip-chars-forward'."
      (setq diff-string (buffer-substring-no-properties beg end))
 
      (set-buffer out-buffer)
-     ;; Make sure that temp buff syntax table is the same a the original buf
+     ;; Make sure that temp buff syntax table is the same as the original buf
      ;; syntax tbl, because we use ediff-forward-word in both and
      ;; ediff-forward-word depends on the syntax classes of characters.
      (set-syntax-table inbuf-syntax-tbl)
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index ebec74fd5b1..8b04fd6dffc 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -821,7 +821,7 @@ This function also returns nil meaning don't specify the indentation."
     (parse-partial-sexp (point) calculate-lisp-indent-last-sexp 0 t)
     (if (and (elt state 2)
              (not (looking-at "\\sw\\|\\s_")))
-        ;; car of form doesn't seem to be a a symbol
+        ;; car of form doesn't seem to be a symbol
         (progn
           (if (not (> (save-excursion (forward-line 1) (point))
                       calculate-lisp-indent-last-sexp))
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index 0ecdc7d912b..d21857982b3 100644
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -2156,7 +2156,7 @@ If FORCE is non-nil, the .newsrc file is read."
 	      reads nil)
 	(if (eolp)
 	    ;; If the line ends here, this is clearly a buggy line, so
-	    ;; we put point a the beginning of line and let the cond
+	    ;; we put point at the beginning of line and let the cond
 	    ;; below do the error handling.
 	    (beginning-of-line)
 	  ;; We skip to the beginning of the ranges.
diff --git a/lisp/obsolete/c-mode.el b/lisp/obsolete/c-mode.el
index 7224f251ecf..bcbebe03404 100644
--- a/lisp/obsolete/c-mode.el
+++ b/lisp/obsolete/c-mode.el
@@ -1120,7 +1120,7 @@ Otherwise return nil and don't move point."
 	      (setq done 'succeed)
 	    ;; Otherwise, if we skipped a semicolon, we lose.
 	    ;; (Exception: we can skip one semicolon before getting
-	    ;; to a the last token of the statement, unless that token
+	    ;; to the last token of the statement, unless that token
 	    ;; is a close brace.)
 	    (if (save-excursion
 		  (forward-sexp 1)
diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index f4c8df155f1..3f2eeffaf4a 100644
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -430,7 +430,7 @@ that variable's value is a string."
     (parse-partial-sexp (point) calculate-lisp-indent-last-sexp 0 t)
     (if (and (elt state 2)
              (not (looking-at "\\sw\\|\\s_")))
-        ;; car of form doesn't seem to be a a symbol
+        ;; car of form doesn't seem to be a symbol
         (progn
           (if (not (> (save-excursion (forward-line 1) (point))
                       calculate-lisp-indent-last-sexp))
diff --git a/lisp/shell.el b/lisp/shell.el
index 5008a773f30..94df8733265 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -31,9 +31,9 @@
 ;;     - Olin Shivers (shivers@cs.cmu.edu)
 ;;     - Simon Marshall (simon@gnu.org)
 
-;; This file defines a a shell-in-a-buffer package (shell mode) built
-;; on top of comint mode.  This is actually cmushell with things
-;; renamed to replace its counterpart in Emacs 18.  cmushell is more
+;; This file defines a shell-in-a-buffer package (shell mode) built on
+;; top of comint mode.  This is actually cmushell with things renamed
+;; to replace its counterpart in Emacs 18.  cmushell is more
 ;; featureful, robust, and uniform than the Emacs 18 version.
 
 ;; Since this mode is built on top of the general command-interpreter-in-
diff --git a/src/xterm.c b/src/xterm.c
index e6b95725583..1a3b52473a2 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -8603,7 +8603,7 @@ x_scroll_bar_to_input_event (event, ievent)
 
 /* Scroll bar callback for Motif scroll bars.  WIDGET is the scroll
    bar widget.  CLIENT_DATA is a pointer to the scroll_bar structure.
-   CALL_DATA is a pointer a a XmScrollBarCallbackStruct.  */
+   CALL_DATA is a pointer to a XmScrollBarCallbackStruct.  */
 
 static void
 xm_scroll_callback (widget, client_data, call_data)