50 |
|
|
51 |
;;; Variables |
;;; Variables |
52 |
|
|
53 |
(defvar viper-toggle-key "\C-z" |
(defcustom viper-toggle-key "\C-z" |
54 |
"The key used to change states from emacs to Vi and back. |
"The key used to change states from emacs to Vi and back. |
55 |
In insert mode, this key also functions as Meta. |
In insert mode, this key also functions as Meta. |
56 |
Must be set in .viper file or prior to loading Viper. |
Must be set in .viper file or prior to loading Viper. |
57 |
This setting cannot be changed interactively.") |
This setting cannot be changed interactively." |
58 |
|
:type 'string |
59 |
|
:group 'viper) |
60 |
|
|
61 |
|
(defcustom viper-quoted-insert-key "\C-v" |
62 |
|
"The key used to quote special characters when inserting them in Insert state." |
63 |
|
:type 'string |
64 |
|
:group 'viper) |
65 |
|
|
66 |
(defvar viper-ESC-key "\e" |
(defcustom viper-ESC-key "\e" |
67 |
"Key used to ESC. |
"Key used to ESC. |
68 |
Must be set in .viper file or prior to loading Viper. |
Must be set in .viper file or prior to loading Viper. |
69 |
This setting cannot be changed interactively.") |
This setting cannot be changed interactively." |
70 |
|
:type 'string |
71 |
|
:group 'viper) |
72 |
|
|
73 |
;;; Emacs keys in other states. |
;;; Emacs keys in other states. |
74 |
|
|
251 |
(define-key viper-insert-basic-map "\C-t" 'viper-forward-indent) |
(define-key viper-insert-basic-map "\C-t" 'viper-forward-indent) |
252 |
(define-key viper-insert-basic-map |
(define-key viper-insert-basic-map |
253 |
(if viper-xemacs-p [(shift tab)] [S-tab]) 'viper-insert-tab) |
(if viper-xemacs-p [(shift tab)] [S-tab]) 'viper-insert-tab) |
254 |
(define-key viper-insert-basic-map "\C-v" 'quoted-insert) |
(define-key viper-insert-basic-map viper-quoted-insert-key 'quoted-insert) |
255 |
(define-key viper-insert-basic-map "\C-?" 'viper-del-backward-char-in-insert) |
(define-key viper-insert-basic-map "\C-?" 'viper-del-backward-char-in-insert) |
256 |
(define-key viper-insert-basic-map [backspace] 'viper-del-backward-char-in-insert) |
(define-key viper-insert-basic-map [backspace] 'viper-del-backward-char-in-insert) |
257 |
(define-key viper-insert-basic-map "\C-\\" 'viper-alternate-Meta-key) |
(define-key viper-insert-basic-map "\C-\\" 'viper-alternate-Meta-key) |