From 4696802bdef9a81448d55c4f631785b02fe18ba0 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 3 Jul 2002 12:01:24 +0000 Subject: [PATCH] Fix typo. --- lisp/ediff-diff.el | 2 +- lisp/emacs-lisp/lisp-mode.el | 2 +- lisp/gnus/gnus-start.el | 2 +- lisp/obsolete/c-mode.el | 2 +- lisp/progmodes/scheme.el | 2 +- lisp/shell.el | 6 +++--- src/xterm.c | 2 +- 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) -- 2.39.2