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