Mercurial > emacs
comparison lisp/auto-show.el @ 20451:93652fd3234d
Customized.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Wed, 10 Dec 1997 11:24:33 +0000 |
| parents | 8134c62c03d0 |
| children | 4bdc30f27628 |
comparison
equal
deleted
inserted
replaced
| 20450:8f05356e9dc3 | 20451:93652fd3234d |
|---|---|
| 35 ;;; The command `auto-show-mode' toggles the value of the variable | 35 ;;; The command `auto-show-mode' toggles the value of the variable |
| 36 ;;; `auto-show-mode'. | 36 ;;; `auto-show-mode'. |
| 37 | 37 |
| 38 ;;; Code: | 38 ;;; Code: |
| 39 | 39 |
| 40 (defvar auto-show-mode t | 40 (defgroup auto-show nil |
| 41 "Perform automatic horizontal scrolling as point moves." | |
| 42 :group 'editing) | |
| 43 | |
| 44 (defcustom auto-show-mode t | |
| 41 "*Non-nil enables automatic horizontal scrolling, when lines are truncated. | 45 "*Non-nil enables automatic horizontal scrolling, when lines are truncated. |
| 42 The default value is t. To change the default, do this: | 46 The default value is t. To change the default, do this: |
| 43 (set-default 'auto-show-mode nil) | 47 (set-default 'auto-show-mode nil) |
| 44 See also command `auto-show-mode'. | 48 See also command `auto-show-mode'. |
| 45 This variable has no effect when lines are not being truncated. | 49 This variable has no effect when lines are not being truncated. |
| 46 This variable is automatically local in each buffer where it is set.") | 50 This variable is automatically local in each buffer where it is set." |
| 51 :type 'boolean | |
| 52 :group 'auto-show) | |
| 47 | 53 |
| 48 (make-variable-buffer-local 'auto-show-mode) | 54 (make-variable-buffer-local 'auto-show-mode) |
| 49 | 55 |
| 50 (defvar auto-show-shift-amount 8 | 56 (defcustom auto-show-shift-amount 8 |
| 51 "*Extra columns to scroll. for automatic horizontal scrolling.") | 57 "*Extra columns to scroll. for automatic horizontal scrolling." |
| 58 :type 'integer | |
| 59 :group 'auto-show) | |
| 52 | 60 |
| 53 (defvar auto-show-show-left-margin-threshold 50 | 61 (defcustom auto-show-show-left-margin-threshold 50 |
| 54 "*Threshold column for automatic horizontal scrolling to the right. | 62 "*Threshold column for automatic horizontal scrolling to the right. |
| 55 If point is before this column, we try to scroll to make the left margin | 63 If point is before this column, we try to scroll to make the left margin |
| 56 visible. Setting this to 0 disables this feature.") | 64 visible. Setting this to 0 disables this feature." |
| 65 :type 'integer | |
| 66 :group 'auto-show) | |
| 57 | 67 |
| 58 (defun auto-show-truncationp () | 68 (defun auto-show-truncationp () |
| 59 "True if line truncation is enabled for the selected window." | 69 "True if line truncation is enabled for the selected window." |
| 60 (or truncate-lines | 70 (or truncate-lines |
| 61 (and truncate-partial-width-windows | 71 (and truncate-partial-width-windows |