X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/82871877e2c8f86f2415092295002dbaabb69f74..5fc196afb06ebcaef2475b5995f7b8717aadeeb2:/lisp/tpu-doc.el

diff --git a/lisp/tpu-doc.el b/lisp/tpu-doc.el
index c65d0aa635..ef724ecb6d 100644
--- a/lisp/tpu-doc.el
+++ b/lisp/tpu-doc.el
@@ -1,10 +1,10 @@
 ;;; tpu-doc.el --- Documentation for TPU-edt
 
-;; Copyright (C) 1993 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
 
 ;; Author: Rob Riepel <riepel@networking.stanford.edu>
 ;; Maintainer: Rob Riepel <riepel@networking.stanford.edu>
-;; Keywords: tpu-edt
+;; Keywords: emulations
 
 ;; This file is part of GNU Emacs.
 
@@ -22,9 +22,6 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(defconst tpu-doc-revision "$Revision: 1.3 $"
-  "TPU-edt documentation revision number.")
-
 
 ;; This is documentation for the TPU-edt editor for GNU emacs.  Major
 ;; sections of this document are separated with lines that begin with
@@ -48,12 +45,12 @@
 
 ;; %% Introduction
 
-;;    TPU-edt is based on tpu.el by Jeff Kowalski.  TPU-edt endeavors
-;;    to be even more like TPU's EDT emulation than the original tpu.el.
-;;    Considerable effort has been expended to that end.  Still, emacs
-;;    is emacs and there are differences between TPU-edt and the real
-;;    thing.  Please read the "Differences Between TPU-edt and the Real
-;;    Thing" and "Starting TPU-edt" sections before running TPU-edt.
+;;    TPU-edt is based on tpu.el by Jeff Kowalski and Bob Covey.  TPU-edt
+;;    endeavors to be even more like TPU's EDT emulation than the original
+;;    tpu.el.  Considerable effort has been expended to that end.  Still,
+;;    emacs is emacs and there are differences between TPU-edt and the
+;;    real thing.  Please read the "Differences Between TPU-edt and the
+;;    Real Thing" and "Starting TPU-edt" sections before running TPU-edt.
 
 
 ;; %% Terminal Support
@@ -298,7 +295,7 @@
 (load "tpu-recall" t)
 
 ;; Uncomment this line to set scroll margins 10% (top) and 15% (bottom).
-;(tpu-set-scroll-margins "10%" "15%")
+;(and (fboundp 'tpu-set-scroll-margins) (tpu-set-scroll-margins "10%" "15%"))
 
 ;; Load the vtxxx terminal control functions, but don't complain if
 ;; if the file is not found.