Mercurial > emacs

comparison lisp/emulation/viper-keym.el @ 62963:fcacef2ed810

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
2005-06-03 Michael Kifer <kifer@cs.stonybrook.edu> * ediff-diff.el (ediff-same-contents) Eliminate CL-type functions. * ediff-mult.el (ediff-intersect-directories) Make sure that ".." and "." files are deleted from all file lists before comparison * viper-keym.el (viper-toggle-key,viper-quoted-insert-key,viper-ESC-key): Made them customizable. * viper.el (viper-non-hook-settings): fixed the names of defadvices.
author Michael Kifer <kifer@cs.stonybrook.edu>
date Fri, 03 Jun 2005 08:04:04 +0000
parents cac7024af280
children 18a818a2ee7c 01137c1fdbe9
comparison
equal deleted inserted replaced
62962:6ab08ae41502 62963:fcacef2ed810
48 (require 'viper-util) 48 (require 'viper-util)
49 49
50 50
51 ;;; Variables 51 ;;; Variables
52 52
53 (defvar viper-toggle-key "\C-z" 53 (defcustom viper-toggle-key "\C-z"
54 "The key used to change states from emacs to Vi and back. 54 "The key used to change states from emacs to Vi and back.
55 In insert mode, this key also functions as Meta. 55 In insert mode, this key also functions as Meta.
56 Must be set in .viper file or prior to loading Viper. 56 Must be set in .viper file or prior to loading Viper.
57 This setting cannot be changed interactively.") 57 This setting cannot be changed interactively."
58 58 :type 'string
59 (defvar viper-ESC-key "\e" 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 (defcustom viper-ESC-key "\e"
60 "Key used to ESC. 67 "Key used to ESC.
61 Must be set in .viper file or prior to loading Viper. 68 Must be set in .viper file or prior to loading Viper.
62 This setting cannot be changed interactively.") 69 This setting cannot be changed interactively."
70 :type 'string
71 :group 'viper)
63 72
64 ;;; Emacs keys in other states. 73 ;;; Emacs keys in other states.
65 74
66 (defcustom viper-want-emacs-keys-in-insert t 75 (defcustom viper-want-emacs-keys-in-insert t
67 "*Set to nil if you want complete Vi compatibility in insert mode. 76 "*Set to nil if you want complete Vi compatibility in insert mode.
240 (define-key viper-insert-basic-map "\C-d" 'viper-backward-indent) 249 (define-key viper-insert-basic-map "\C-d" 'viper-backward-indent)
241 (define-key viper-insert-basic-map "\C-w" 'viper-delete-backward-word) 250 (define-key viper-insert-basic-map "\C-w" 'viper-delete-backward-word)
242 (define-key viper-insert-basic-map "\C-t" 'viper-forward-indent) 251 (define-key viper-insert-basic-map "\C-t" 'viper-forward-indent)
243 (define-key viper-insert-basic-map 252 (define-key viper-insert-basic-map
244 (if viper-xemacs-p [(shift tab)] [S-tab]) 'viper-insert-tab) 253 (if viper-xemacs-p [(shift tab)] [S-tab]) 'viper-insert-tab)
245 (define-key viper-insert-basic-map "\C-v" 'quoted-insert) 254 (define-key viper-insert-basic-map viper-quoted-insert-key 'quoted-insert)
246 (define-key viper-insert-basic-map "\C-?" 'viper-del-backward-char-in-insert) 255 (define-key viper-insert-basic-map "\C-?" 'viper-del-backward-char-in-insert)
247 (define-key viper-insert-basic-map [backspace] 'viper-del-backward-char-in-insert) 256 (define-key viper-insert-basic-map [backspace] 'viper-del-backward-char-in-insert)
248 (define-key viper-insert-basic-map "\C-\\" 'viper-alternate-Meta-key) 257 (define-key viper-insert-basic-map "\C-\\" 'viper-alternate-Meta-key)
249 (define-key viper-insert-basic-map viper-toggle-key 'viper-escape-to-vi) 258 (define-key viper-insert-basic-map viper-toggle-key 'viper-escape-to-vi)
250 (define-key viper-insert-basic-map "\C-c\M-p" 259 (define-key viper-insert-basic-map "\C-c\M-p"