Mercurial > emacs

comparison lisp/emulation/tpu-extras.el @ 21628:4a3e3887c0dc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Customize.
author Stephen Eglen <stephen@gnu.org>
date Fri, 17 Apr 1998 17:24:17 +0000
parents 83f275dcd93a
children a1f20ca97c0b
comparison
equal deleted inserted replaced
21627:0ddbc21a8468 21628:4a3e3887c0dc
108 (require 'tpu-edt) 108 (require 'tpu-edt)
109 109
110 110
111 ;;; Customization variables 111 ;;; Customization variables
112 112
113 (defconst tpu-top-scroll-margin 0 113 (defcustom tpu-top-scroll-margin 0
114 "*Scroll margin at the top of the screen. 114 "*Scroll margin at the top of the screen.
115 Interpreted as a percent of the current window size.") 115 Interpreted as a percent of the current window size."
116 (defconst tpu-bottom-scroll-margin 0 116 :type 'integer
117 :group 'tpu)
118 (defcustom tpu-bottom-scroll-margin 0
117 "*Scroll margin at the bottom of the screen. 119 "*Scroll margin at the bottom of the screen.
118 Interpreted as a percent of the current window size.") 120 Interpreted as a percent of the current window size."
119 121 :type 'integer
120 (defvar tpu-backward-char-like-tpu t 122 :group 'tpu)
123
124 (defcustom tpu-backward-char-like-tpu t
121 "*If non-nil, in free cursor mode backward-char (left-arrow) works 125 "*If non-nil, in free cursor mode backward-char (left-arrow) works
122 just like TPU/edt. Otherwise, backward-char will move to the end of 126 just like TPU/edt. Otherwise, backward-char will move to the end of
123 the previous line when starting from a line beginning.") 127 the previous line when starting from a line beginning."
128 :type 'boolean
129 :group 'tpu)
124 130
125 131
126 ;;; Global variables 132 ;;; Global variables
127 133
128 (defvar tpu-cursor-free nil 134 (defvar tpu-cursor-free nil