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