Apply typo patches from Paul Eggert.

9 files changed, 24 insertions, 24 deletions

diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index 8e8e85590c7..b6c13fb8605 100644
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -144,11 +144,11 @@
 ;;; 	M-C-e  end-of-bibtex-entry
 ;;; Mike Newton (newton@gumby.cs.caltech.edu) 90.11.17
 ;;;  * Handle items like
-;;;          title = poft # "Fifth Tri-quaterly" # random-conf,
+;;;          title = poft # "Fifth Tri-quarterly" # random-conf,
 ;;;    and   title = {This title is inside curlies}
 ;;;  * added user settable, always present, optional fields
 ;;;  * fixed 'bibtex-find-it's doc string's location
-;;;  * bibtex-field-text made more general (it wouldnt handle the # construct)
+;;;  * bibtex-field-text made more general (it wouldn't handle the # construct)
 ;;;		and it now handles a small subset of the {} cases
 
 ;;; Bengt Martensson, March 6
@@ -553,7 +553,7 @@ Chosen on aesthetic grounds only.")
 Equal to the space needed for the longest name part.")
 
 (defun bibtex-current-entry-label (&optional include-cite kill)
-  "Return the label of the bibtex entry containing, or preceeding point.
+  "Return the label of the bibtex entry containing, or preceding point.
 Optional argument INCLUDE-CITE, if true means put a '\\cite{}' around the
 returned value.  Second optional argument KILL, if true, means place the
 returned value in the kill buffer.  Interactively; providing prefix
@@ -563,7 +563,7 @@ Rationale:
 The intention is that someone will write a function that can be bound to
 a mouse key so that people entering TeX can just mouse on the bibtex entry
 and have the citation key inserted at the current point (which will almost
-certainly be in some other bufer).  In the interim this function is 
+certainly be in some other buffer).  In the interim this function is 
 marginally useful for keyboard binding and is not bound by default.  
 Suggested binding is ^C-k."
   (interactive (list current-prefix-arg t))
@@ -689,7 +689,7 @@ non-nil."
   (setq local-abbrev-table bibtex-mode-abbrev-table)
   (make-local-variable 'paragraph-start)
   (setq paragraph-start "^[ \f\n\t]*$")
-  (auto-fill-mode 1)			; nice alignements
+  (auto-fill-mode 1)			; nice alignments
   (setq left-margin (+ bibtex-text-alignment 1))
 
   (run-hooks 'bibtex-mode-hook))
@@ -813,7 +813,7 @@ If bibtex-sort-ignore-string-entries is true, @string entries will be ignored.
 
 Bugs:
   1. Text between the closing brace ending one bibtex entry, and the @ starting 
-     the next, is considered part of the PRECEEDING entry.  Perhaps it should be
+     the next, is considered part of the PRECEDING entry.  Perhaps it should be
      part of the following entry."
   (interactive)
   (save-restriction
@@ -825,7 +825,7 @@ Bugs:
 			(end-of-bibtex-entry)
 			(point)))
     (sort-subr nil			; reversep
-	       ;; begining of record function
+	       ;; beginning of record function
 	       'forward-line
 	       ;; end of record function
 	       (function (lambda () (and (re-search-forward "}\\s-*\n[\n \t]*@" nil 'move)
diff --git a/lisp/textmodes/ispell4.el b/lisp/textmodes/ispell4.el
index 08aed07b4e3..ff37d27ce4d 100644
--- a/lisp/textmodes/ispell4.el
+++ b/lisp/textmodes/ispell4.el
@@ -69,7 +69,7 @@ to look for the next message from the ISPELL program.")
 
 (defun kill-ispell ()
   "Kill the ispell process.
-Any changes the your private dictionay
+Any changes in your private dictionary
 that have not already been dumped will be lost."
   (interactive)
   (if ispell-process
@@ -141,7 +141,7 @@ WORD		Check spelling of WORD.  Result is
 :file FILENAME	scan the named file, and print the file offsets of
 		any misspelled words
 
-:insert WORD	put word in private dictonary
+:insert WORD	put word in private dictionary
 
 :accept WORD	don't complain about word any more this session
 
@@ -209,10 +209,10 @@ DIGIT	Near miss selector.  If the misspelled word is close to
 	some words in the dictionary, they are offered as near misses.
 r	Replace.  Replace the word with a string you type.  Each word
 	of your new string is also checked.
-i	Insert.  Insert this word in your private dictonary (kept in
+i	Insert.  Insert this word in your private dictionary (kept in
 	`$HOME/ispell.words').
 a	Accept.  Accept this word for the rest of this editing session,
- 	but don't put it in your private dictonary.
+ 	but don't put it in your private dictionary.
 l	Lookup.  Look for a word in the dictionary by fast binary
 	search, or search for a regular expression in the dictionary
 	using grep.
diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el
index 847d0b674e2..8537e59450b 100644
--- a/lisp/textmodes/page-ext.el
+++ b/lisp/textmodes/page-ext.el
@@ -77,7 +77,7 @@
 ;;; `pages-directory-address-mode' now sets local variables and enables
 ;;; `describe-mode' to describe Addresses Directory mode.
 ;;;
-;;; `pages-directory-for-addresses' now sets the buffer-modifed flag
+;;; `pages-directory-for-addresses' now sets the buffer-modified flag
 ;;; for the Addresses Directory to nil.
 ;;;
 ;;; The documentation string for both `pages-directory-mode' and
@@ -223,7 +223,7 @@
 ;     Washington, DC  20515
 ;     
 ;     Congressional committee concerned with permitting or preventing
-;     monopolistic restictions on the use of software technology
+;     monopolistic restrictions on the use of software technology
 ; 
 ;     
 ;     George Lakoff
diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el
index 8435376a8b7..7c0490b6d2e 100644
--- a/lisp/textmodes/picture.el
+++ b/lisp/textmodes/picture.el
@@ -44,7 +44,7 @@ if necessary to attain exactly the specified column."
 	    (delete-char -1)
             (indent-to col)
             (move-to-column column))))
-    ;; This call will go away when Emacs gets real horizonal autoscrolling
+    ;; This call will go away when Emacs gets real horizontal autoscrolling
     (hscroll-point-visible)))
 
 
@@ -57,7 +57,7 @@ If scan reaches end of buffer, stop there without error."
   (interactive "P")
   (if arg (forward-line (1- (prefix-numeric-value arg))))
   (beginning-of-line)
-  ;; This call will go away when Emacs gets real horizonal autoscrolling
+  ;; This call will go away when Emacs gets real horizontal autoscrolling
   (hscroll-point-visible))
 
 (defun picture-end-of-line (&optional arg)
@@ -68,7 +68,7 @@ If scan reaches end of buffer, stop there without error."
   (if arg (forward-line (1- (prefix-numeric-value arg))))
   (beginning-of-line)
   (skip-chars-backward " \t" (prog1 (point) (end-of-line)))
-  ;; This call will go away when Emacs gets real horizonal autoscrolling
+  ;; This call will go away when Emacs gets real horizontal autoscrolling
   (hscroll-point-visible))
 
 (defun picture-forward-column (arg)
@@ -238,7 +238,7 @@ always moves to the beginning of a line."
       (end-of-line)
       (if (eobp) (newline) (forward-char 1))
       (setq arg (1- arg))))
-  ;; This call will go away when Emacs gets real horizonal autoscrolling
+  ;; This call will go away when Emacs gets real horizontal autoscrolling
   (hscroll-point-visible))
 
 (defun picture-open-line (arg)
@@ -248,7 +248,7 @@ With positive argument insert that many lines."
   (save-excursion
    (end-of-line)
    (open-line arg))
-  ;; This call will go away when Emacs gets real horizonal autoscrolling
+  ;; This call will go away when Emacs gets real horizontal autoscrolling
   (hscroll-point-visible))
 
 (defun picture-duplicate-line ()
diff --git a/lisp/textmodes/spell.el b/lisp/textmodes/spell.el
index e1ed847ca79..6ebbe35654b 100644
--- a/lisp/textmodes/spell.el
+++ b/lisp/textmodes/spell.el
@@ -23,7 +23,7 @@
 
 ;;; Commentary:
 
-;; This mode orovides an Emacs interface to the UNIX spell(1) program.
+;; This mode provides an Emacs interface to the UNIX spell(1) program.
 ;; Entry points are `spell-buffer', `spell-word', `spell-region' and
 ;; `spell-string'.  These facilities are documented in the Emacs user's
 ;; manual.
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index 199fc58bea9..e6db1dafcdf 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -520,7 +520,7 @@ and the location is displayed for a few seconds."
 	    (or (tex-validate-region (point) end)
 		(progn
 		  (push-mark (point))
-		  (message "Mismatch found in pararaph starting here")
+		  (message "Mismatch found in paragraph starting here")
 		  (sit-for 4)))))
       (goto-char opoint))))
 
diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el
index 20bbefcdb60..c45662132f2 100644
--- a/lisp/textmodes/texinfmt.el
+++ b/lisp/textmodes/texinfmt.el
@@ -431,7 +431,7 @@ converted to Info is stored in a temporary buffer."
 
 
 ; 19 October 1990
-; @setfilename modifed to work with include files; see @include
+; @setfilename modified to work with include files; see @include
 ; (defun texinfo-format-setfilename ()
 ;   (let ((arg (texinfo-parse-arg-discard)))
 ;     (setq texinfo-format-filename
@@ -1653,7 +1653,7 @@ If used within a line, follow `@minus' with braces."
 ;; In the original version, include files were ignored by Info but
 ;; incorporated in to the printed manual.  To make references to the
 ;; included file, the Texinfo source file has to refer to the included
-;; files using the `(filename)nodename' format for refering to other
+;; files using the `(filename)nodename' format for referring to other
 ;; Info files.  Also, the included files had to be formatted on their
 ;; own.  It was just like they were another file.
 
diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el
index a739826c4f2..dae1d6aa8c7 100644
--- a/lisp/textmodes/texnfo-upd.el
+++ b/lisp/textmodes/texnfo-upd.el
@@ -570,7 +570,7 @@ menus in the buffer (incorporating descriptions from pre-existing
 menus) before it constructs the master menu.
 
 The function removes the detailed part of an already existing master
-menu.  This action depends on the pre-exisitng master menu using the
+menu.  This action depends on the pre-existing master menu using the
 standard `texinfo-master-menu-header'.
 
 The master menu has the following format, which is adapted from the
diff --git a/lisp/textmodes/text-mode.el b/lisp/textmodes/text-mode.el
index b4b543f9a47..c4724687c2b 100644
--- a/lisp/textmodes/text-mode.el
+++ b/lisp/textmodes/text-mode.el
@@ -80,7 +80,7 @@ All the commands defined in Text mode are inherited unless overridden.")
 
 (if indented-text-mode-map
     ()
-  ;; Make different definintion for TAB before the one in text-mode-map, but
+  ;; Make different definition for TAB before the one in text-mode-map, but
   ;; share the rest.
   (let ((newmap (make-sparse-keymap)))
     (define-key newmap "\t" 'indent-relative)