Mercurial > emacs
diff lisp/obsolete/auto-show.el @ 34457:349d4061ceb4
Moved from auto-show.el to obsolete/auto-show.el
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Mon, 11 Dec 2000 21:38:46 +0000 |
parents | |
children | 253f761ad37b |
line wrap: on
line diff
--- /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 <ware@cis.ohio-state.edu> +;;; 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 +