# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1054121365 0
# Node ID 304ec2e5804ce9bd5b649f464999e9a147375d91
# Parent  0e0d3c3dca7f11066be727cc5f20056b5b868a42
(ctl-x-map): Don't bind C-x C-i or C-x 3.
(global-map): Don't bind C-z.
(vip-setup): New function to rebind C-x 7 and C-z.

diff -r 0e0d3c3dca7f -r 304ec2e5804c lisp/emulation/vip.el
--- a/lisp/emulation/vip.el	Wed May 28 11:27:52 2003 +0000
+++ b/lisp/emulation/vip.el	Wed May 28 11:29:25 2003 +0000
@@ -293,9 +293,6 @@
 (define-key vip-mode-map "~" 'vip-nil)
 (define-key vip-mode-map "\177" 'vip-delete-backward-char)
 
-(define-key ctl-x-map "3" 'vip-buffer-in-two-windows)
-(define-key ctl-x-map "\C-i" 'insert-file)
-
 (defun vip-version ()
   (interactive)
   (message "VIP version 3.5 of September 15, 1987"))
@@ -303,7 +300,11 @@
 
 ;; basic set up
 
-(global-set-key "\C-z" 'vip-change-mode-to-vi)
+;;;###autoload
+(defun vip-setup ()
+  "Set up bindings for C-x 7 and C-z that are useful for VIP users."
+  (define-key ctl-x-map "7" 'vip-buffer-in-two-windows)
+  (global-set-key "\C-z" 'vip-change-mode-to-vi))
 
 (defmacro vip-loop (count body)
   "(COUNT BODY) Execute BODY COUNT times."