Mercurial > emacs

annotate lisp/obsolete/auto-show.el @ 47872:e5d59debb925

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(scan_lists): Don't get fooled by a symbol ending with a backslash-quoted char. (scan_lists, scan_sexps_forward): Pacify the compiler.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 14 Oct 2002 04:43:22 +0000
parents 253f761ad37b
children 0d8b17d428b5
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
38412
253f761ad37b Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents: 34457
diff changeset
4 ;; This file is part of GNU Emacs.
253f761ad37b Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents: 34457
diff changeset
5
253f761ad37b Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents: 34457
diff changeset
6 ;; Keywords: scroll display convenience
253f761ad37b Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents: 34457
diff changeset
7 ;; Author: Pete Ware <ware@cis.ohio-state.edu>
253f761ad37b Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents: 34457
diff changeset
8 ;; Maintainer: FSF
34457
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 ;;; Commentary:
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
11
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
12 ;; 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
13 ;; does hscrolling automatically, now.
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 ;;; Code:
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
16
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
17 (defgroup auto-show nil
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
18 "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
19 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
20 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
21 :group 'editing)
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
22
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
23 ;;;###autoload
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
24 (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
25 "Obsolete."
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
26 :version "20.4"
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
27 :type 'boolean
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
28 :group 'auto-show)
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
29
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
30 (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
31 "*Obsolete."
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
32 :type 'integer
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
33 :group 'auto-show)
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
34
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
35 (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
36 "*Obsolete."
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
37 :type 'integer
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
38 :group 'auto-show)
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
39
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
40 ;;;###autoload
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
41 (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
42 "This command is obsolete."
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
43 (interactive "P"))
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
44
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
45 (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
46 "This command is obsolete."
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
47 (interactive))
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 (provide 'auto-show)
349d4061ceb4 Moved from auto-show.el to obsolete/auto-show.el
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
50
38412
253f761ad37b Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents: 34457
diff changeset
51 ;;; auto-show.el ends here