Fix typo.

diff --git a/lisp/ediff-diff.el b/lisp/ediff-diff.el
index 31c54636c6800459a69e9f1d03b9932392c4bbb9..f6c6a850329e624bce4fef3fec73857bce12bd08 100644 (file)
--- 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 ebec74fd5b1a96a392dd416f3f48cbdb8bfdbb89..8b04fd6dffcf73f3ee50e6d17e667a1d33ed052e 100644 (file)
--- 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 0ecdc7d912bbcfc08310c1e5ab0a101e8385eab4..d21857982b3bf02731572d590ad72906348c1a47 100644 (file)
--- 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 7224f251ecfcee392f39ff1dfd07cf6aa55fb4ae..bcbebe034044a636fef03df950c9e4e7e132a2ed 100644 (file)
--- 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 f4c8df155f1cd718838b8f18433e0f50ddf7b8d7..3f2eeffaf4a1a8067f4544403edc840191971a60 100644 (file)
--- 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 5008a773f30dc47fc7d4da59cfe5a95c6c4e5545..94df87332659a9c56157cdc4cc658eafdb954238 100644 (file)
--- 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 e6b95725583f10e2aaa9101fd20898fa504bd562..1a3b52473a2a2d9ee482c038fc101056b0d6d504 100644 (file)
--- 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)