Revert "Don't autoload obsolete library tpu-extras.el"

This reverts commit 77bf50cb330807039cc84138fb84870bd6d532e2.

diff --git a/lisp/obsolete/tpu-edt.el b/lisp/obsolete/tpu-edt.el
index 1e3fc0d569ee742ce6ba3db336312413e24cafac..8c4ec8f7e09b0c479edc6594bd78bbd66a9166b5 100644 (file)
--- a/lisp/obsolete/tpu-edt.el
+++ b/lisp/obsolete/tpu-edt.el
@@ -2412,6 +2412,35 @@ If FILE is nil, try to load a default file.  The default file name is
     (error nil))
   (setq tpu-edt-mode nil))
 
+\f
+;;;### (autoloads nil "tpu-extras" "tpu-extras.el" "cbbb448cff48fab904ac19805aa6f36a")
+;;; Generated autoloads from tpu-extras.el
+
+(autoload 'tpu-cursor-free-mode "tpu-extras" "\
+Minor mode to allow the cursor to move freely about the screen.
+With a prefix argument ARG, enable the mode if ARG is positive,
+and disable it otherwise.  If called from Lisp, enable the mode
+if ARG is omitted or nil.
+
+\(fn &optional ARG)" t nil)
+
+(autoload 'tpu-set-scroll-margins "tpu-extras" "\
+Set scroll margins.
+
+\(fn TOP BOTTOM)" t nil)
+
+(autoload 'tpu-set-cursor-free "tpu-extras" "\
+Allow the cursor to move freely about the screen.
+
+\(fn)" t nil)
+
+(autoload 'tpu-set-cursor-bound "tpu-extras" "\
+Constrain the cursor to the flow of the text.
+
+\(fn)" t nil)
+
+;;;***
+\f
 (provide 'tpu-edt)
 
 ;;; tpu-edt.el ends here

diff --git a/lisp/obsolete/tpu-extras.el b/lisp/obsolete/tpu-extras.el
index 23f6020fd3ab5505ab441174fed322332a94d21e..76338cdd24eb0c4a952aa801d3682384f416b5ce 100644 (file)
--- a/lisp/obsolete/tpu-extras.el
+++ b/lisp/obsolete/tpu-extras.el
@@ -422,4 +422,8 @@ A repeat count means scroll that many sections."
 
 (provide 'tpu-extras)
 
+;; Local Variables:
+;; generated-autoload-file: "tpu-edt.el"
+;; End:
+
 ;;; tpu-extras.el ends here