annotate lisp/obsolete/hscroll.el @ 68604:33b406f0321d mh-e-7_91

Update for MH-E release 7.91.
author Bill Wohler <wohler@newt.com>
date Fri, 03 Feb 2006 23:17:59 +0000
parents 5b1a238fcbb4
children e8a3fb527b77 2d92f5c9d6ae
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
34421
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1 ;;; hscroll.el --- automatically scroll truncated lines horizontally
64751
5b1a238fcbb4 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64085
diff changeset
2
5b1a238fcbb4 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64085
diff changeset
3 ;; Copyright (C) 1992, 1993, 1995, 1996, 2002, 2003, 2004,
5b1a238fcbb4 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64085
diff changeset
4 ;; 2005 Free Software Foundation, Inc.
34421
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
6 ;; Author: Wayne Mesard <wmesard@esd.sgi.com>
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
7 ;; Keywords: display
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
8
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
10
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
13 ;; the Free Software Foundation; either version 2, or (at your option)
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
14 ;; any later version.
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
15
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
20
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64085
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 52401
diff changeset
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 52401
diff changeset
24 ;; Boston, MA 02110-1301, USA.
34421
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
25
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
26 ;;; Commentary:
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
27 ;;
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
28 ;; This file contains dummy variables and functions only because Emacs
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
29 ;; does hscrolling automatically, now.
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
30
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
31 ;;; Code:
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
32
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 34421
diff changeset
33 ;;;
34421
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
34 ;;; PUBLIC VARIABLES
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 34421
diff changeset
35 ;;;
34421
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
36
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
37 (defvar hscroll-version "0.0")
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
38
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
39 (defgroup hscroll nil
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
40 "This customization group is kept for compatibility only.
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
41 Emacs now does hscrolling automatically. Please remove references
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
42 to hscroll from your init file and code."
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
43 :group 'editing)
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
44
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
45
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
46 (defcustom hscroll-global-mode nil
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
47 "*Obsolete."
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
48 :group 'hscroll
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
49 :type 'boolean
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
50 :require 'hscroll
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
51 :version "20.3")
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
52
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 34421
diff changeset
53 (defcustom hscroll-margin 5
34421
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
54 "*Obsolete."
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
55 :group 'hscroll
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
56 :type 'integer)
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
57
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
58 (defcustom hscroll-snap-threshold 30
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
59 "*Obsolete."
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
60 :group 'hscroll
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
61 :type 'integer)
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
62
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
63 (defcustom hscroll-step-percent 25
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
64 "*Obsolete."
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
65 :group 'hscroll
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
66 :type 'integer)
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
67
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
68 (defcustom hscroll-mode-name " Hscr"
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
69 "*Obsolete."
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
70 :group 'hscroll
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
71 :type 'string)
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
72
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 34421
diff changeset
73 ;;;
34421
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
74 ;;; PUBLIC COMMANDS
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 34421
diff changeset
75 ;;;
34421
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
76
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
77 ;;;###autoload
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
78 (defun turn-on-hscroll ()
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
79 "This function is obsolete.
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
80 Emacs now does hscrolling automatically, if `truncate-lines' is non-nil.
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
81 Also see `automatic-hscrolling'.")
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
82
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
83 ;;;###autoload
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
84 (defun hscroll-mode (&optional arg)
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
85 "This function is obsolete.
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
86 Emacs now does hscrolling automatically, if `truncate-lines' is non-nil.
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
87 Also see `automatic-hscrolling'."
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
88 (interactive "P"))
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
89
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
90 ;;;###autoload
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
91 (defun hscroll-global-mode (&optional arg)
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
92 "This function is obsolete.
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
93 Emacs now does hscrolling automatically, if `truncate-lines' is non-nil.
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
94 Also see `automatic-hscrolling'."
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
95 (interactive "P"))
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
96
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
97 (defun hscroll-window-maybe ()
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
98 "This function is obsolete.
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
99 Emacs now does hscrolling automatically, if `truncate-lines' is non-nil.
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
100 Also see `automatic-hscrolling'."
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
101 (interactive))
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
102
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
103 (provide 'hscroll)
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
104
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49598
diff changeset
105 ;;; arch-tag: 48377520-e5ca-401d-b360-3881b2d5a05a
34421
6c79e7c27d9b Moved here from lisp/.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
106 ;;; hscroll.el ends here