[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 25636fcf52 1/3: Revert "Don't autoload obsolete library tpu-extra
From: |
Stefan Kangas |
Subject: |
master 25636fcf52 1/3: Revert "Don't autoload obsolete library tpu-extras.el" |
Date: |
Mon, 8 Aug 2022 07:47:23 -0400 (EDT) |
branch: master
commit 25636fcf5223341bf415a4014e643f4b2caa446d
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
Revert "Don't autoload obsolete library tpu-extras.el"
This reverts commit 77bf50cb330807039cc84138fb84870bd6d532e2.
---
lisp/obsolete/tpu-edt.el | 29 +++++++++++++++++++++++++++++
lisp/obsolete/tpu-extras.el | 4 ++++
2 files changed, 33 insertions(+)
diff --git a/lisp/obsolete/tpu-edt.el b/lisp/obsolete/tpu-edt.el
index 1e3fc0d569..8c4ec8f7e0 100644
--- 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))
+
+;;;### (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)
+
+;;;***
+
(provide 'tpu-edt)
;;; tpu-edt.el ends here
diff --git a/lisp/obsolete/tpu-extras.el b/lisp/obsolete/tpu-extras.el
index 23f6020fd3..76338cdd24 100644
--- 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