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

diff --git a/lisp/tpu-doc.el b/lisp/tpu-doc.el
index 7811fe0c39..ef724ecb6d 100644
--- a/lisp/tpu-doc.el
+++ b/lisp/tpu-doc.el
@@ -1,9 +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.
 
@@ -21,10 +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.
 
-;;; Revision: $Id: tpu-doc.el,v 3.2 1993/08/01 21:36:48 riepel Exp $
-(defconst tpu-doc-revision "$Revision: 3.2 $"
-  "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.
@@ -314,7 +311,8 @@
 
 ;; Emacs has the ability to automatically run code embedded in files
 ;; you edit.  This line makes emacs ask if you want to run the code.
-(setq inhibit-local-variables t)
+(if tpu-emacs19-p (setq enable-local-variables "ask")
+  (setq inhibit-local-variables t))
 
 ;; Emacs uses Control-s and Control-q.  Problems can occur when using emacs
 ;; on terminals that use these codes for flow control (Xon/Xoff flow control).