Fix typo.

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 6736159d60fd6e773dded6f7a08e61d4ea7e554b..f217c5416e873bf7e29836c5d5ca6b86d41ba839 100644 (file)
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -719,7 +719,7 @@ is the buffer position of the start of the containing expression."
     (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/progmodes/inf-lisp.el b/lisp/progmodes/inf-lisp.el
index c1b3a5e58bca3a69bd566bb82cf9717e113e4232..f64e87e01f62233b52574d812eb6aa57ee1c371f 100644 (file)
--- a/lisp/progmodes/inf-lisp.el
+++ b/lisp/progmodes/inf-lisp.el
@@ -26,11 +26,11 @@
 
 ;; Hacked from tea.el by Olin Shivers (shivers@cs.cmu.edu). 8/88
 
-;; This file defines a a lisp-in-a-buffer package (inferior-lisp
-;; mode) built on top of comint mode.  This version is more
-;; featureful, robust, and uniform than the Emacs 18 version.  The
-;; key bindings are also more compatible with the bindings of Hemlock
-;; and Zwei (the Lisp Machine emacs).
+;; This file defines a lisp-in-a-buffer package (inferior-lisp mode)
+;; built on top of comint mode.  This version is more featureful,
+;; robust, and uniform than the Emacs 18 version.  The key bindings are
+;; also more compatible with the bindings of Hemlock and Zwei (the
+;; Lisp Machine emacs).
 
 ;; Since this mode is built on top of the general command-interpreter-in-
 ;; a-buffer mode (comint mode), it shares a common base functionality,

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 f09e2c6b56e9ab3a14bd658383276cb4535c2722..a476660cd82d32565536feefec4a668d79124623 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 9c86139ecb2ea1bd0718d26359ab2ea12d1e7d85..e62f44a3ee7b281a370d670b319c67e6b10b3cb7 100644 (file)
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -8472,7 +8472,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)