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*