Moved from auto-show.el to obsolete/auto-show.el

1 files changed, 50 insertions, 0 deletions

diff --git a/lisp/obsolete/auto-show.el b/lisp/obsolete/auto-show.el
new file mode 100644
index 00000000000..93323f6c8c1
--- /dev/null
+++ b/lisp/obsolete/auto-show.el
@@ -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
+