Commit | Line | Data |
---|---|---|
be010748 | 1 | ;;; auto-show.el --- perform automatic horizontal scrolling as point moves |
4d235ac7 | 2 | ;;; This file is in the public domain. |
495a2b0a | 3 | |
adb643d3 | 4 | ;;; Keywords: scroll display convenience |
4d235ac7 RS |
5 | ;;; Author: Pete Ware <ware@cis.ohio-state.edu> |
6 | ;;; Maintainer: FSF | |
7 | ||
8 | ;;; Commentary: | |
9 | ||
317f4819 GM |
10 | ;; This file contains dummy variables and functions only because Emacs |
11 | ;; does hscrolling automatically, now. | |
495a2b0a | 12 | |
4d235ac7 | 13 | ;;; Code: |
495a2b0a | 14 | |
fa4a3d49 | 15 | (defgroup auto-show nil |
317f4819 GM |
16 | "This customization group is kept for compatibilry only. |
17 | Emacs now does hscrolling automatically. Please remove references | |
18 | to hscroll from your init file and code." | |
fa4a3d49 AS |
19 | :group 'editing) |
20 | ||
adb643d3 KH |
21 | ;;;###autoload |
22 | (defcustom auto-show-mode nil | |
317f4819 | 23 | "Obsolete." |
adb643d3 | 24 | :version "20.4" |
fa4a3d49 AS |
25 | :type 'boolean |
26 | :group 'auto-show) | |
495a2b0a | 27 | |
fa4a3d49 | 28 | (defcustom auto-show-shift-amount 8 |
317f4819 | 29 | "*Obsolete." |
fa4a3d49 AS |
30 | :type 'integer |
31 | :group 'auto-show) | |
495a2b0a | 32 | |
fa4a3d49 | 33 | (defcustom auto-show-show-left-margin-threshold 50 |
317f4819 | 34 | "*Obsolete." |
fa4a3d49 AS |
35 | :type 'integer |
36 | :group 'auto-show) | |
495a2b0a | 37 | |
4d235ac7 RS |
38 | ;;;###autoload |
39 | (defun auto-show-mode (arg) | |
e2273040 | 40 | "This command is obsolete." |
317f4819 | 41 | (interactive "P")) |
495a2b0a RS |
42 | |
43 | (defun auto-show-make-point-visible (&optional ignore-arg) | |
e2273040 | 44 | "This command is obsolete." |
317f4819 | 45 | (interactive)) |
4d235ac7 RS |
46 | |
47 | (provide 'auto-show) | |
495a2b0a | 48 | |
4d235ac7 | 49 | ;; auto-show.el ends here |
495a2b0a | 50 |