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 has been obsolete since Emacs 21.1.
  13
  14 ;; This file contains dummy variables and functions only because Emacs
  15 ;; does hscrolling automatically, now.
  16
  17 ;;; Code:
  18
  19 (defgroup auto-show nil
  20   "This customization group is kept for compatibility only.
  21 Emacs now does hscrolling automatically.  Please remove references
  22 to auto-show from your init file and code."
  23   :group 'editing)
  24
  25 ;;;###autoload
  26 (defcustom auto-show-mode nil
  27   "Obsolete."
  28   :version "20.4"
  29   :type 'boolean
  30   :group 'auto-show)
  31
  32 (defcustom auto-show-shift-amount 8
  33   "*Obsolete."
  34   :type 'integer
  35   :group 'auto-show)
  36
  37 (defcustom auto-show-show-left-margin-threshold 50
  38   "*Obsolete."
  39   :type 'integer
  40   :group 'auto-show)
  41
  42 ;;;###autoload
  43 (defun auto-show-mode (arg)
  44   "This command is obsolete."
  45   (interactive "P"))
  46
  47 (defun auto-show-make-point-visible (&optional ignore-arg)
  48   "This command is obsolete."
  49   (interactive))
  50
  51 (provide 'auto-show)
  52
  53 ;; arch-tag: 49587cbf-95cc-4061-b564-274aaec37469
  54 ;;; auto-show.el ends here