From da4ec09802e47a458542afbd6d02532660b61ddb Mon Sep 17 00:00:00 2001 From: Stephen Eglen Date: Fri, 17 Apr 1998 17:24:17 +0000 Subject: Customize. --- lisp/emulation/tpu-extras.el | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) (limited to 'lisp/emulation/tpu-extras.el') diff --git a/lisp/emulation/tpu-extras.el b/lisp/emulation/tpu-extras.el index dbaf20ce3aa..dc16fc80ad2 100644 --- a/lisp/emulation/tpu-extras.el +++ b/lisp/emulation/tpu-extras.el @@ -110,17 +110,23 @@ ;;; Customization variables -(defconst tpu-top-scroll-margin 0 +(defcustom tpu-top-scroll-margin 0 "*Scroll margin at the top of the screen. -Interpreted as a percent of the current window size.") -(defconst tpu-bottom-scroll-margin 0 +Interpreted as a percent of the current window size." + :type 'integer + :group 'tpu) +(defcustom tpu-bottom-scroll-margin 0 "*Scroll margin at the bottom of the screen. -Interpreted as a percent of the current window size.") +Interpreted as a percent of the current window size." + :type 'integer + :group 'tpu) -(defvar tpu-backward-char-like-tpu t +(defcustom tpu-backward-char-like-tpu t "*If non-nil, in free cursor mode backward-char (left-arrow) works just like TPU/edt. Otherwise, backward-char will move to the end of -the previous line when starting from a line beginning.") +the previous line when starting from a line beginning." + :type 'boolean + :group 'tpu) ;;; Global variables -- cgit v1.2.1