Mercurial > emacs
changeset 20451:93652fd3234d
Customized.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Wed, 10 Dec 1997 11:24:33 +0000 |
| parents | 8f05356e9dc3 |
| children | d56e496c7790 |
| files | lisp/auto-show.el |
| diffstat | 1 files changed, 16 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/auto-show.el Tue Dec 09 23:04:38 1997 +0000 +++ b/lisp/auto-show.el Wed Dec 10 11:24:33 1997 +0000 @@ -37,23 +37,33 @@ ;;; Code: -(defvar auto-show-mode t +(defgroup auto-show nil + "Perform automatic horizontal scrolling as point moves." + :group 'editing) + +(defcustom auto-show-mode t "*Non-nil enables automatic horizontal scrolling, when lines are truncated. The default value is t. To change the default, do this: (set-default 'auto-show-mode nil) See also command `auto-show-mode'. This variable has no effect when lines are not being truncated. -This variable is automatically local in each buffer where it is set.") +This variable is automatically local in each buffer where it is set." + :type 'boolean + :group 'auto-show) (make-variable-buffer-local 'auto-show-mode) -(defvar auto-show-shift-amount 8 - "*Extra columns to scroll. for automatic horizontal scrolling.") +(defcustom auto-show-shift-amount 8 + "*Extra columns to scroll. for automatic horizontal scrolling." + :type 'integer + :group 'auto-show) -(defvar auto-show-show-left-margin-threshold 50 +(defcustom auto-show-show-left-margin-threshold 50 "*Threshold column for automatic horizontal scrolling to the right. If point is before this column, we try to scroll to make the left margin -visible. Setting this to 0 disables this feature.") +visible. Setting this to 0 disables this feature." + :type 'integer + :group 'auto-show) (defun auto-show-truncationp () "True if line truncation is enabled for the selected window."