Commit 4532ac55 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(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.
parent 3b8d36f1
......@@ -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 ()
(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)
(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."
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment