Mercurial > emacs
comparison lisp/obsolete/auto-show.el @ 34457:349d4061ceb4
Moved from auto-show.el to obsolete/auto-show.el
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Mon, 11 Dec 2000 21:38:46 +0000 |
parents | |
children | 253f761ad37b |
comparison
equal
deleted
inserted
replaced
34456:6ab25b51ae25 | 34457:349d4061ceb4 |
---|---|
1 ;;; auto-show.el --- perform automatic horizontal scrolling as point moves | |
2 ;;; This file is in the public domain. | |
3 | |
4 ;;; Keywords: scroll display convenience | |
5 ;;; Author: Pete Ware <ware@cis.ohio-state.edu> | |
6 ;;; Maintainer: FSF | |
7 | |
8 ;;; Commentary: | |
9 | |
10 ;; This file contains dummy variables and functions only because Emacs | |
11 ;; does hscrolling automatically, now. | |
12 | |
13 ;;; Code: | |
14 | |
15 (defgroup auto-show nil | |
16 "This customization group is kept for compatibility only. | |
17 Emacs now does hscrolling automatically. Please remove references | |
18 to auto-show from your init file and code." | |
19 :group 'editing) | |
20 | |
21 ;;;###autoload | |
22 (defcustom auto-show-mode nil | |
23 "Obsolete." | |
24 :version "20.4" | |
25 :type 'boolean | |
26 :group 'auto-show) | |
27 | |
28 (defcustom auto-show-shift-amount 8 | |
29 "*Obsolete." | |
30 :type 'integer | |
31 :group 'auto-show) | |
32 | |
33 (defcustom auto-show-show-left-margin-threshold 50 | |
34 "*Obsolete." | |
35 :type 'integer | |
36 :group 'auto-show) | |
37 | |
38 ;;;###autoload | |
39 (defun auto-show-mode (arg) | |
40 "This command is obsolete." | |
41 (interactive "P")) | |
42 | |
43 (defun auto-show-make-point-visible (&optional ignore-arg) | |
44 "This command is obsolete." | |
45 (interactive)) | |
46 | |
47 (provide 'auto-show) | |
48 | |
49 ;; auto-show.el ends here | |
50 |