lisp/obsolete/auto-show.el

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