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 | 786b07e8f5df204d579b2ec4ac6a8bbd99854ccd (patch) | |
| tree | 6015fc2c3fb22524bc1f0e416a36d3b7b6ef41bd /lisp/emulation/tpu-extras.el | |
| parent | c254bfbb6aa5b60fe91cc8a6559d189471897720 (diff) | |
| download | emacs-786b07e8f5df204d579b2ec4ac6a8bbd99854ccd.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 |