Mercurial > emacs
changeset 34420:de8bc9b2f6a7
Moved to `obsolete' subdir.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Mon, 11 Dec 2000 10:19:46 +0000 |
parents | b3abe4cdf5f4 |
children | 6c79e7c27d9b |
files | lisp/hscroll.el |
diffstat | 1 files changed, 0 insertions(+), 103 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/hscroll.el Mon Dec 11 07:33:18 2000 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,103 +0,0 @@ -;;; hscroll.el --- automatically scroll truncated lines horizontally -;;; 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: -;; -;; 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) - -;;; hscroll.el ends here