changeset 5188:403fae0cb21b

Add sample test for tpu-set-scroll-margins.
author Richard M. Stallman <rms@gnu.org>
date Fri, 26 Nov 1993 06:35:00 +0000
parents 3c6f2b0ecf8b
children af88471e6799
files lisp/=tpu-doc.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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.