Mercurial > hg > xemacs-beta

comparison lisp/viper/viper-keym.el @ 197:acd284d43ca1 r20-3b25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b25
author cvs
date Mon, 13 Aug 2007 10:00:02 +0200
parents b405438285a2
children
comparison
equal deleted inserted replaced
196:58e0786448ca 197:acd284d43ca1
81 as is allowed by the major mode in effect." 81 as is allowed by the major mode in effect."
82 :type 'boolean 82 :type 'boolean
83 :group 'viper) 83 :group 'viper)
84 84
85 (defcustom viper-want-ctl-h-help nil 85 (defcustom viper-want-ctl-h-help nil
86 "*If t then C-h is bound to help-command in insert mode, if nil then it is 86 "*If non-nil, C-h gets bound to help-command; otherwise, C-h gets the usual Vi bindings."
87 bound to delete-backward-char."
88 :type 'boolean 87 :type 'boolean
89 :group 'viper) 88 :group 'viper)
90 89
91 90
92 ;;; Keymaps 91 ;;; Keymaps
239 (define-key viper-insert-basic-map "\C-t" 'viper-forward-indent) 238 (define-key viper-insert-basic-map "\C-t" 'viper-forward-indent)
240 (define-key viper-insert-basic-map 239 (define-key viper-insert-basic-map
241 (if viper-xemacs-p [(shift tab)] [S-tab]) 'viper-insert-tab) 240 (if viper-xemacs-p [(shift tab)] [S-tab]) 'viper-insert-tab)
242 (define-key viper-insert-basic-map "\C-v" 'quoted-insert) 241 (define-key viper-insert-basic-map "\C-v" 'quoted-insert)
243 (define-key viper-insert-basic-map "\C-?" 'viper-del-backward-char-in-insert) 242 (define-key viper-insert-basic-map "\C-?" 'viper-del-backward-char-in-insert)
243 (define-key viper-insert-basic-map [backspace] 'viper-del-backward-char-in-insert)
244 (define-key viper-insert-basic-map "\C-\\" 'viper-alternate-Meta-key) 244 (define-key viper-insert-basic-map "\C-\\" 'viper-alternate-Meta-key)
245 (define-key viper-insert-basic-map viper-toggle-key 'viper-escape-to-vi) 245 (define-key viper-insert-basic-map viper-toggle-key 'viper-escape-to-vi)
246 (define-key viper-insert-basic-map "\C-c\M-p" 246 (define-key viper-insert-basic-map "\C-c\M-p"
247 'viper-insert-prev-from-insertion-ring) 247 'viper-insert-prev-from-insertion-ring)
248 (define-key viper-insert-basic-map "\C-c\M-n" 248 (define-key viper-insert-basic-map "\C-c\M-n"
252 ;; Replace keymap 252 ;; Replace keymap
253 (define-key viper-replace-map "\C-t" 'viper-forward-indent) 253 (define-key viper-replace-map "\C-t" 'viper-forward-indent)
254 (define-key viper-replace-map "\C-j" 'viper-replace-state-carriage-return) 254 (define-key viper-replace-map "\C-j" 'viper-replace-state-carriage-return)
255 (define-key viper-replace-map "\C-m" 'viper-replace-state-carriage-return) 255 (define-key viper-replace-map "\C-m" 'viper-replace-state-carriage-return)
256 (define-key viper-replace-map "\C-?" 'viper-del-backward-char-in-replace) 256 (define-key viper-replace-map "\C-?" 'viper-del-backward-char-in-replace)
257 (define-key viper-replace-map [backspace] 'viper-del-backward-char-in-replace)
257 258
258 259
259 260
260 ;; Vi keymaps 261 ;; Vi keymaps
261 262
354 (define-key viper-vi-basic-map "d" 'viper-command-argument) 355 (define-key viper-vi-basic-map "d" 'viper-command-argument)
355 (define-key viper-vi-basic-map "e" 'viper-end-of-word) 356 (define-key viper-vi-basic-map "e" 'viper-end-of-word)
356 (define-key viper-vi-basic-map "f" 'viper-find-char-forward) 357 (define-key viper-vi-basic-map "f" 'viper-find-char-forward)
357 (define-key viper-vi-basic-map "g" 'viper-nil) 358 (define-key viper-vi-basic-map "g" 'viper-nil)
358 (define-key viper-vi-basic-map "h" 'viper-backward-char) 359 (define-key viper-vi-basic-map "h" 'viper-backward-char)
360 (define-key viper-vi-basic-map [backspace] 'viper-backward-char)
359 (define-key viper-vi-basic-map "i" 'viper-insert) 361 (define-key viper-vi-basic-map "i" 'viper-insert)
360 (define-key viper-vi-basic-map "j" 'viper-next-line) 362 (define-key viper-vi-basic-map "j" 'viper-next-line)
361 (define-key viper-vi-basic-map "k" 'viper-previous-line) 363 (define-key viper-vi-basic-map "k" 'viper-previous-line)
362 (define-key viper-vi-basic-map "l" 'viper-forward-char) 364 (define-key viper-vi-basic-map "l" 'viper-forward-char)
363 (define-key viper-vi-basic-map "m" 'viper-mark-point) 365 (define-key viper-vi-basic-map "m" 'viper-mark-point)