lisp/auto-show.el

   1 ;;; auto-show.el --- perform automatic horizontal scrolling as point moves
   2 ;;; This file is in the public domain.
   3
   4 ;;; Keywords: scroll display convenience
   5 ;;; Author: Pete Ware <ware@cis.ohio-state.edu>
   6 ;;; Maintainer: FSF
   7
   8 ;;; Commentary:
   9
  10 ;; This file contains dummy variables and functions only because Emacs
  11 ;; does hscrolling automatically, now.
  12
  13 ;;; Code:
  14
  15 (defgroup auto-show nil
  16   "This customization group is kept for compatibility only.
  17 Emacs now does hscrolling automatically.  Please remove references
  18 to auto-show from your init file and code."
  19   :group 'editing)
  20
  21 ;;;###autoload
  22 (defcustom auto-show-mode nil
  23   "Obsolete."
  24   :version "20.4"
  25   :type 'boolean
  26   :group 'auto-show)
  27
  28 (defcustom auto-show-shift-amount 8
  29   "*Obsolete."
  30   :type 'integer
  31   :group 'auto-show)
  32
  33 (defcustom auto-show-show-left-margin-threshold 50
  34   "*Obsolete."
  35   :type 'integer
  36   :group 'auto-show)
  37
  38 ;;;###autoload
  39 (defun auto-show-mode (arg)
  40   "This command is obsolete."
  41   (interactive "P"))
  42
  43 (defun auto-show-make-point-visible (&optional ignore-arg)
  44   "This command is obsolete."
  45   (interactive))
  46
  47 (provide 'auto-show)
  48
  49 ;; auto-show.el ends here
  50