Fix typo.

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)

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))

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.

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)

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))

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-

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)