From 83ba7a933ea5353159541974b3cec0253dcaf922 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Fri, 26 Nov 1993 06:33:45 +0000
Subject: Remove free/bound cursor and scroll margin fsets and key mappings. 
 Add autoload cookies.

---
 lisp/emulation/tpu-extras.el | 19 ++++---------------
 1 file changed, 4 insertions(+), 15 deletions(-)

(limited to 'lisp/emulation')

diff --git a/lisp/emulation/tpu-extras.el b/lisp/emulation/tpu-extras.el
index ce6fa06ab71..c762dedb69e 100644
--- a/lisp/emulation/tpu-extras.el
+++ b/lisp/emulation/tpu-extras.el
@@ -104,7 +104,7 @@
 
 ;;;  Revision Information
 
-(defconst tpu-extras-revision "$Revision: 1.4 $"
+(defconst tpu-extras-revision "$Revision: 1.5 $"
   "Revision number of the TPU-edt extras.")
 
 
@@ -428,6 +428,7 @@ version that respects the bottom scroll margin."
 
 ;;;  Function to set scroll margins
 
+;;;###autoload
 (defun tpu-set-scroll-margins (top bottom)
   "Set scroll margins."
   (interactive
@@ -452,12 +453,10 @@ version that respects the bottom scroll margin."
        (message "Scroll margins set.  Top = %s%%, Bottom = %s%%"
 		tpu-top-scroll-margin tpu-bottom-scroll-margin)))
 
-(fset 'set\ scroll\ margins 'tpu-set-scroll-margins)
-(fset 'SET\ SCROLL\ MARGINS 'tpu-set-scroll-margins)
-
 
 ;;;  Functions to set cursor bound or free
 
+;;;###autoload
 (defun tpu-set-cursor-free nil
   "Allow the cursor to move freely about the screen."
   (interactive)
@@ -467,6 +466,7 @@ version that respects the bottom scroll margin."
 			     GOLD-map)
   (message "The cursor will now move freely about the screen."))
 
+;;;###autoload
 (defun tpu-set-cursor-bound nil
   "Constrain the cursor to the flow of the text."
   (interactive)
@@ -477,15 +477,4 @@ version that respects the bottom scroll margin."
 			     GOLD-map)
   (message "The cursor is now bound to the flow of your text."))
 
-(fset 'set\ cursor\ bound 'tpu-set-cursor-bound)
-(fset 'SET\ CURSOR\ BOUND 'tpu-set-cursor-bound)
-(fset 'set\ cursor\ free 'tpu-set-cursor-free)
-(fset 'SET\ CURSOR\ FREE 'tpu-set-cursor-free)
-
-
-;;;  Keypad Mapping
-
-(define-key GOLD-map "F" 'tpu-set-cursor-free)			; F
-(define-key GOLD-map "f" 'tpu-set-cursor-free)			; f
-
 ;;; tpu-extras.el ends here
-- 
cgit v1.2.1