293 |
(define-key vip-mode-map "~" 'vip-nil) |
(define-key vip-mode-map "~" 'vip-nil) |
294 |
(define-key vip-mode-map "\177" 'vip-delete-backward-char) |
(define-key vip-mode-map "\177" 'vip-delete-backward-char) |
295 |
|
|
|
(define-key ctl-x-map "3" 'vip-buffer-in-two-windows) |
|
|
(define-key ctl-x-map "\C-i" 'insert-file) |
|
|
|
|
296 |
(defun vip-version () |
(defun vip-version () |
297 |
(interactive) |
(interactive) |
298 |
(message "VIP version 3.5 of September 15, 1987")) |
(message "VIP version 3.5 of September 15, 1987")) |
300 |
|
|
301 |
;; basic set up |
;; basic set up |
302 |
|
|
303 |
(global-set-key "\C-z" 'vip-change-mode-to-vi) |
;;;###autoload |
304 |
|
(defun vip-setup () |
305 |
|
"Set up bindings for C-x 7 and C-z that are useful for VIP users." |
306 |
|
(define-key ctl-x-map "7" 'vip-buffer-in-two-windows) |
307 |
|
(global-set-key "\C-z" 'vip-change-mode-to-vi)) |
308 |
|
|
309 |
(defmacro vip-loop (count body) |
(defmacro vip-loop (count body) |
310 |
"(COUNT BODY) Execute BODY COUNT times." |
"(COUNT BODY) Execute BODY COUNT times." |
3072 |
|
|
3073 |
(provide 'vip) |
(provide 'vip) |
3074 |
|
|
3075 |
|
;;; arch-tag: bff623ef-48f7-41d4-9aa3-2e840c9ab415 |
3076 |
;;; vip.el ends here |
;;; vip.el ends here |