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