From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 26 Nov 1993 06:35:00 +0000 (+0000)
Subject: Add sample test for tpu-set-scroll-margins.
X-Git-Tag: emacs-19.34~10663
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6daed836c4331d1e42ac08592e5902d6f7bf325b;p=emacs.git

Add sample test for tpu-set-scroll-margins.
---

diff --git a/lisp/tpu-doc.el b/lisp/tpu-doc.el
index 4fdc032e409..4d43e81392c 100644
--- a/lisp/tpu-doc.el
+++ b/lisp/tpu-doc.el
@@ -22,7 +22,7 @@
 ;; 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.4 $"
+(defconst tpu-doc-revision "$Revision: 1.5 $"
   "TPU-edt documentation revision number.")
 
 
@@ -298,7 +298,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.