From 6daed836c4331d1e42ac08592e5902d6f7bf325b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 26 Nov 1993 06:35:00 +0000 Subject: [PATCH] Add sample test for tpu-set-scroll-margins. --- lisp/tpu-doc.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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.