Moved here from lisp/.

2 files changed, 107 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 55366de116f..dfb7609a18b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-12-11  Gerd Moellmann  <gerd@gnu.org>
+
+	* hscroll.el: Moved to `obsolete' subdir.
+
 2000-12-11  Miles Bader  <miles@gnu.org>
 
 	* window.el (window-text-height): Function removed (now in C).
diff --git a/lisp/obsolete/hscroll.el b/lisp/obsolete/hscroll.el
new file mode 100644
index 00000000000..996cd07c5e4
--- /dev/null
+++ b/lisp/obsolete/hscroll.el
@@ -0,0 +1,103 @@
+;;; 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