diff options
| author | Stephen Eglen <stephen@gnu.org> | 1998-04-17 17:24:17 +0000 |
|---|---|---|
| committer | Stephen Eglen <stephen@gnu.org> | 1998-04-17 17:24:17 +0000 |
| commit | da4ec09802e47a458542afbd6d02532660b61ddb (patch) | |
| tree | 31b439a9a05ab1ac9503029919f6e76b8ded8067 /lisp/emulation/tpu-extras.el | |
| parent | 95ed984f02de64f409edc88de4f2d09c20014520 (diff) | |
| download | emacs-da4ec09802e47a458542afbd6d02532660b61ddb.tar.gz | |
Customize.
Diffstat (limited to 'lisp/emulation/tpu-extras.el')
| -rw-r--r-- | lisp/emulation/tpu-extras.el | 18 |
1 files changed, 12 insertions, 6 deletions
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 |