diff options
author | Richard M. Stallman <rms@gnu.org> | 2003-05-28 11:29:25 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2003-05-28 11:29:25 +0000 |
commit | 4532ac55a9f3f87863a4eb658845afa525fef410 (patch) | |
tree | 8e6745919cc6903e7d476d986f41503b022560d0 /lisp/emulation/vip.el | |
parent | 3b8d36f152d4d290a14074e8c08bf89c646b0a1a (diff) |
(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.
Diffstat (limited to 'lisp/emulation/vip.el')
-rw-r--r-- | lisp/emulation/vip.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el index 15d5925083..80e941d2ed 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." |