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