# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 820799472 0
# Node ID 8ade85f685c258093f4a4b8bcd13d50c4e68baf6
# Parent  6427a3484344d17ca7e7c15cc2578ddc27b7a783
(GOLD-map, GOLD-CSI-map, GOLD-SS3-map, tpu-set-mark):
Doc fix.

diff -r 6427a3484344 -r 8ade85f685c2 lisp/emulation/tpu-edt.el
--- a/lisp/emulation/tpu-edt.el	Thu Jan 04 23:50:50 1996 +0000
+++ b/lisp/emulation/tpu-edt.el	Thu Jan 04 23:51:12 1996 +0000
@@ -316,14 +316,14 @@
 SS3 is DEC's name for the sequence <ESC>O.")
 
 (defvar GOLD-map (make-keymap)
-  "Maps the function keys on the VT100 keyboard preceeded by PF1.
+  "Maps the function keys on the VT100 keyboard preceded by PF1.
 GOLD is the ASCII 7-bit escape sequence <ESC>OP.")
 
 (defvar GOLD-CSI-map (make-sparse-keymap)
-  "Maps the function keys on the VT100 keyboard preceeded by GOLD-CSI.")
+  "Maps the function keys on the VT100 keyboard preceded by GOLD-CSI.")
 
 (defvar GOLD-SS3-map (make-sparse-keymap)
-  "Maps the function keys on the VT100 keyboard preceeded by GOLD-SS3.")
+  "Maps the function keys on the VT100 keyboard preceded by GOLD-SS3.")
 
 (defvar tpu-global-map nil "TPU-edt global keymap.")
 (defvar tpu-original-global-map (copy-keymap global-map)
@@ -543,7 +543,7 @@
 
 (defun tpu-set-mark (pos)
   "TPU-edt verion of the `set-mark' function.
-Sets the mark at POS and activates the region acording to the
+Sets the mark at POS and activates the region according to the
 current version of Emacs."
   (set-mark pos)
   (and tpu-lucid-emacs19-p pos (zmacs-activate-region)))
@@ -1203,7 +1203,7 @@
 
 (defun tpu-check-search-case (string)
   "Returns t if string contains upper case."
-  ;; if using regexp, elimiate upper case forms (\B \W \S.)
+  ;; if using regexp, eliminate upper case forms (\B \W \S.)
   (if tpu-regexp-p
       (let ((pat (copy-sequence string)) (case-fold-search nil) (pos 0))
 	(while (setq pos (string-match "\\\\\\\\" pat)) (aset pat (+ 1 pos) ?.))