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