From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 28 May 2003 11:29:25 +0000 (+0000)
Subject: (ctl-x-map): Don't bind C-x C-i or C-x 3.
X-Git-Tag: ttn-vms-21-2-B4~9893
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4532ac55a9f3f87863a4eb658845afa525fef410;p=emacs.git

(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 --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el
index 15d59250836..80e941d2ed6 100644
--- a/lisp/emulation/vip.el
+++ b/lisp/emulation/vip.el
@@ -293,9 +293,6 @@ If nil then it is bound to `delete-backward-char'."
 (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 @@ If nil then it is bound to `delete-backward-char'."
 
 ;; 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."