Mercurial > emacs
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.