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