# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 754295700 0
# Node ID 403fae0cb21b39770f6d41fa6cab038ab3f8f239
# Parent  3c6f2b0ecf8bf6219cbc32fc10ebbd4be3904eba
Add sample test for tpu-set-scroll-margins.

diff -r 3c6f2b0ecf8b -r 403fae0cb21b lisp/=tpu-doc.el
--- a/lisp/=tpu-doc.el	Fri Nov 26 06:33:45 1993 +0000
+++ b/lisp/=tpu-doc.el	Fri Nov 26 06:35:00 1993 +0000
@@ -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.