From 4532ac55a9f3f87863a4eb658845afa525fef410 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 28 May 2003 11:29:25 +0000 Subject: [PATCH] (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. --- lisp/emulation/vip.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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." -- 2.39.5