Apply typo patches from Paul Eggert.

7 files changed, 15 insertions, 15 deletions

diff --git a/lisp/play/blackbox.el b/lisp/play/blackbox.el
index 2034b7d7972..ba6600cc581 100644
--- a/lisp/play/blackbox.el
+++ b/lisp/play/blackbox.el
@@ -84,7 +84,7 @@
   (define-key blackbox-mode-map "\C-m" 'bb-done)
   (define-key blackbox-mode-map [kp-enter] 'bb-done)
 
-  ;; This is a kluge.  What we really want is a general
+  ;; This is a kludge.  What we really want is a general
   ;; feature for reminding terminal keys to the functions
   ;; corresponding to them in local maps.
   (mapcar (function
diff --git a/lisp/play/dissociate.el b/lisp/play/dissociate.el
index ebf6b637a8d..494d83b3b58 100644
--- a/lisp/play/dissociate.el
+++ b/lisp/play/dissociate.el
@@ -23,7 +23,7 @@
 
 ;;; Commentary:
 
-;; The single entry point, `dissociatesd-press', applies a travesty
+;; The single entry point, `dissociated-press', applies a travesty
 ;; generator to the current buffer.  The results can be quite amusing.
 
 ;;; Code:
diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index 702f053b25e..4bb60d51e76 100644
--- a/lisp/play/doctor.el
+++ b/lisp/play/doctor.el
@@ -349,7 +349,7 @@ reads the sentence before point, and prints the Doctor's answer."
   (setq deathlst
         '((this is not a healthy way of thinking \.)
           (($ bother) you\, too\, may die someday \?)
-          (i am worried by your obssession with this topic!)
+          (i am worried by your obsession with this topic!)
           (did you watch a lot of crime and violence on television as a child \?))
         )
   (make-local-variable 'sexlst)
@@ -797,7 +797,7 @@ reads the sentence before point, and prints the Doctor's answer."
 (doctor-put-meaning elisa 'eliza)
 (doctor-put-meaning weizenbaum 'eliza)
 (doctor-put-meaning doktor 'eliza)
-(doctor-put-meaning atheletics 'sports)
+(doctor-put-meaning athletics 'sports)
 (doctor-put-meaning baseball 'sports)
 (doctor-put-meaning basketball 'sports)
 (doctor-put-meaning football 'sports)
@@ -951,7 +951,7 @@ Otherwise call the Doctor to parse preceding sentence."
                              sent))))
 
 (defun doctor-shorten (sent)
-  "Make a sentence managably short using a few hacks."
+  "Make a sentence manageably short using a few hacks."
   (let (foo
         retval
         (temp '(because but however besides anyway until
@@ -1062,7 +1062,7 @@ the subject noun, and return the portion of the sentence following it."
                 applied applies apply are associate
                 associated ate
                 be became become becomes becoming
-                been being believe belived believes
+                been being believe believed believes
                 bit bite bites bore bored bores boring bought buy buys buying
                 call called calling calls came can caught catch come
                 contract contracted contracts control controlled controls
@@ -1072,7 +1072,7 @@ the subject noun, and return the portion of the sentence following it."
                 dislikes do does drank drink drinks drinking
                 drive drives driving drove dying
                 eat eating eats expand expanded expands
-                expect expected expects expel expels expeled expelled
+                expect expected expects expel expels expelled
                 explain explained explains
                 fart farts feel feels felt fight fights find finds finding
                 forget forgets forgot fought found fuck fucked
@@ -1111,7 +1111,7 @@ the subject noun, and return the portion of the sentence following it."
                 take takes taking talk talked talking talks tell tells telling
                 think thinks
                 thought told took tooled touch touched touches touching
-                transfer transfered transfers transmit transmits transmitted
+                transfer transferred transfers transmit transmits transmitted
                 type types types typing
                 walk walked walking walks want wanted wants was watch
                 watched watching went were will wish would work worked works
@@ -1196,7 +1196,7 @@ the subject noun, and return the portion of the sentence following it."
                 hundred thousand million billion
                 half quarter
                 first second third fourth fifth
-                sixth seventh eighth nineth tenth)))
+                sixth seventh eighth ninth tenth)))
                  
 (defun doctor-colorp (x)
   (memq x '(beige black blue brown crimson
diff --git a/lisp/play/hanoi.el b/lisp/play/hanoi.el
index 99e2acdd92a..3ec67092901 100644
--- a/lisp/play/hanoi.el
+++ b/lisp/play/hanoi.el
@@ -76,7 +76,7 @@
           ;; If we have NRINGS rings, we label them with the numbers 0
           ;; through NRINGS-1.  The width of ring i is 2i+3; it pokes
           ;; out i spaces on either side of the pole.  Rather than
-          ;; checking if the window is wide enough to accomodate this,
+          ;; checking if the window is wide enough to accommodate this,
           ;; we make sure pole-spacing is large enough, since that
           ;; works even when we have decremented pole-spacing to make
           ;; it even.
diff --git a/lisp/play/life.el b/lisp/play/life.el
index 84dca781fa0..50e76e69cac 100644
--- a/lisp/play/life.el
+++ b/lisp/play/life.el
@@ -25,7 +25,7 @@
 
 ;; A demonstrator for John Horton Conway's "Life" cellular automaton
 ;; in Emacs Lisp.  Picks a random one of a set of interesting Life
-;; patterns and avolves it according to the familiar rules.
+;; patterns and evolves it according to the familiar rules.
 
 ;;; Code:
 
@@ -75,7 +75,7 @@
 (defmacro life-not-void-regexp () (concat "[^" (life-void-string) "\n]"))
 
 ;; try to optimize the (goto-char (point-min)) & (goto-char (point-max))
-;; idioms.  This depends on goto-char's not griping if we underrshoot
+;; idioms.  This depends on goto-char's not griping if we undershoot
 ;; or overshoot beginning or end of buffer.
 (defmacro goto-beginning-of-buffer () '(goto-char 1))
 (defmacro maxint () (lsh (lsh (lognot 0) 1) -1))
diff --git a/lisp/play/mpuz.el b/lisp/play/mpuz.el
index a3962c696ef..2738a7c7665 100644
--- a/lisp/play/mpuz.el
+++ b/lisp/play/mpuz.el
@@ -149,7 +149,7 @@ You may abort a game by typing \\<mpuz-mode-map>\\[mpuz-offer-abort]."
       (aset mpuz-letter-to-digit elem index))))
 
 
-;; A puzzle also uses a board displaying a mulplication.
+;; A puzzle also uses a board displaying a multiplication.
 ;; Every digit appears in the board, crypted or not.
 ;;------------------------------------------------------
 (defvar mpuz-board (make-vector 10 nil)
@@ -310,7 +310,7 @@ You may abort a game by typing \\<mpuz-mode-map>\\[mpuz-offer-abort]."
 ;; Game control
 ;;-------------
 (defun mpuz-abort-game ()
-  "Abort any puzzle in progess."
+  "Abort any puzzle in progress."
   (message "Mult Puzzle aborted.")
   (setq mpuz-in-progress nil
         mpuz-nb-errors 0)
diff --git a/lisp/play/yow.el b/lisp/play/yow.el
index f056ec5c6bf..fd90d3677f1 100644
--- a/lisp/play/yow.el
+++ b/lisp/play/yow.el
@@ -23,7 +23,7 @@
 
 ;;; Commentary:
 
-;; Important pinheaddery for GNU Emacs.
+;; Important pinheadery for GNU Emacs.
 ;;
 ;; See cookie1.el for implementation.  Note --- the `n' argument of yow
 ;; from the 18.xx implementation is no longer; we only support *random*