1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
emacs/lisp/hscroll.el

104 lines
2.7 KiB
EmacsLisp
Raw Normal View History

2000-06-20 09:57:10 +00:00
;;; hscroll.el --- automatically scroll truncated lines horizontally
1996-11-17 19:30:55 +00:00
;;; Copyright (C) 1992, 1993, 1995, 1996 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 2, 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., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
1996-11-17 19:30:55 +00:00
;;
1999-09-06 16:00:47 +00:00
;; This file contains dummy variables and functions only because Emacs
;; does hscrolling automatically, now.
1996-11-17 19:30:55 +00:00
;;; Code:
;;;
;;; PUBLIC VARIABLES
;;;
1999-09-06 16:00:47 +00:00
(defvar hscroll-version "0.0")
1996-11-17 19:30:55 +00:00
1997-08-19 00:03:01 +00:00
(defgroup hscroll nil
2000-01-05 11:44:03 +00:00
"This customization group is kept for compatibility only.
1999-09-06 16:00:47 +00:00
Emacs now does hscrolling automatically. Please remove references
to hscroll from your init file and code."
1997-08-19 00:03:01 +00:00
:group 'editing)
(defcustom hscroll-global-mode nil
1999-09-06 16:00:47 +00:00
"*Obsolete."
:group 'hscroll
:type 'boolean
1998-04-20 03:35:05 +00:00
:require 'hscroll
:version "20.3")
1997-08-19 00:03:01 +00:00
(defcustom hscroll-margin 5
1999-09-06 16:00:47 +00:00
"*Obsolete."
1997-08-19 00:03:01 +00:00
:group 'hscroll
:type 'integer)
1996-11-17 19:30:55 +00:00
1997-08-19 00:03:01 +00:00
(defcustom hscroll-snap-threshold 30
1999-09-06 16:00:47 +00:00
"*Obsolete."
1997-08-19 00:03:01 +00:00
:group 'hscroll
:type 'integer)
1996-11-17 19:30:55 +00:00
1997-08-19 00:03:01 +00:00
(defcustom hscroll-step-percent 25
1999-09-06 16:00:47 +00:00
"*Obsolete."
1997-08-19 00:03:01 +00:00
:group 'hscroll
:type 'integer)
1996-11-17 19:30:55 +00:00
1997-08-19 00:03:01 +00:00
(defcustom hscroll-mode-name " Hscr"
1999-09-06 16:00:47 +00:00
"*Obsolete."
1997-08-19 00:03:01 +00:00
:group 'hscroll
:type 'string)
1996-11-17 19:30:55 +00:00
;;;
;;; 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'.")
1996-11-17 19:30:55 +00:00
;;;###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'."
1999-09-06 16:00:47 +00:00
(interactive "P"))
1996-11-17 19:30:55 +00:00
;;;###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'."
1999-09-06 16:00:47 +00:00
(interactive "P"))
1996-11-17 19:30:55 +00:00
(defun hscroll-window-maybe ()
"This function is obsolete.
Emacs now does hscrolling automatically, if `truncate-lines' is non-nil.
Also see `automatic-hscrolling'."
1999-09-06 16:00:47 +00:00
(interactive))
1996-11-17 19:30:55 +00:00
(provide 'hscroll)
;;; hscroll.el ends here