changeset 34421:6c79e7c27d9b

Moved here from lisp/.

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/obsolete/hscroll.el	Mon Dec 11 10:20:16 2000 +0000
@@ -0,0 +1,103 @@
+;;; hscroll.el --- automatically scroll truncated lines horizontally
+;;; Copyright (C) 1992, 1993, 1995, 1996 Free Software Foundation, Inc.
+
+;; Author: Wayne Mesard <[e-mail]>
+;; 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