# HG changeset patch # User Stefan Monnier # Date 976570726 0 # Node ID 349d4061ceb477c2ea56b11ab9cbb14277cf86bb # Parent 6ab25b51ae25cf732ff02c29d47960ad52630a8d Moved from auto-show.el to obsolete/auto-show.el diff -r 6ab25b51ae25 -r 349d4061ceb4 lisp/auto-show.el --- a/lisp/auto-show.el Mon Dec 11 21:38:19 2000 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,50 +0,0 @@ -;;; auto-show.el --- perform automatic horizontal scrolling as point moves -;;; This file is in the public domain. - -;;; Keywords: scroll display convenience -;;; Author: Pete Ware -;;; Maintainer: FSF - -;;; Commentary: - -;; This file contains dummy variables and functions only because Emacs -;; does hscrolling automatically, now. - -;;; Code: - -(defgroup auto-show nil - "This customization group is kept for compatibility only. -Emacs now does hscrolling automatically. Please remove references -to auto-show from your init file and code." - :group 'editing) - -;;;###autoload -(defcustom auto-show-mode nil - "Obsolete." - :version "20.4" - :type 'boolean - :group 'auto-show) - -(defcustom auto-show-shift-amount 8 - "*Obsolete." - :type 'integer - :group 'auto-show) - -(defcustom auto-show-show-left-margin-threshold 50 - "*Obsolete." - :type 'integer - :group 'auto-show) - -;;;###autoload -(defun auto-show-mode (arg) - "This command is obsolete." - (interactive "P")) - -(defun auto-show-make-point-visible (&optional ignore-arg) - "This command is obsolete." - (interactive)) - -(provide 'auto-show) - -;; auto-show.el ends here - diff -r 6ab25b51ae25 -r 349d4061ceb4 lisp/obsolete/auto-show.el --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/obsolete/auto-show.el Mon Dec 11 21:38:46 2000 +0000 @@ -0,0 +1,50 @@ +;;; auto-show.el --- perform automatic horizontal scrolling as point moves +;;; This file is in the public domain. + +;;; Keywords: scroll display convenience +;;; Author: Pete Ware +;;; Maintainer: FSF + +;;; Commentary: + +;; This file contains dummy variables and functions only because Emacs +;; does hscrolling automatically, now. + +;;; Code: + +(defgroup auto-show nil + "This customization group is kept for compatibility only. +Emacs now does hscrolling automatically. Please remove references +to auto-show from your init file and code." + :group 'editing) + +;;;###autoload +(defcustom auto-show-mode nil + "Obsolete." + :version "20.4" + :type 'boolean + :group 'auto-show) + +(defcustom auto-show-shift-amount 8 + "*Obsolete." + :type 'integer + :group 'auto-show) + +(defcustom auto-show-show-left-margin-threshold 50 + "*Obsolete." + :type 'integer + :group 'auto-show) + +;;;###autoload +(defun auto-show-mode (arg) + "This command is obsolete." + (interactive "P")) + +(defun auto-show-make-point-visible (&optional ignore-arg) + "This command is obsolete." + (interactive)) + +(provide 'auto-show) + +;; auto-show.el ends here +