Remove free/bound cursor and scroll

margin fsets and key mappings.  Add autoload cookies.

diff --git a/lisp/emulation/tpu-extras.el b/lisp/emulation/tpu-extras.el
index ce6fa06ab7123d38034cbbd5dac095f68953feda..c762dedb69e75cde733a7b2815e6456dffa496b1 100644 (file)
--- 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