diff options
| author | Michael Kifer <kifer@cs.stonybrook.edu> | 1997-07-17 19:37:07 +0000 |
|---|---|---|
| committer | Michael Kifer <kifer@cs.stonybrook.edu> | 1997-07-17 19:37:07 +0000 |
| commit | 1e70790f2f4826c646d5640a9f6162aa78ea682b (patch) | |
| tree | 8c5e1f471a70bb6c1594cc983aceed67a9eb86de /lisp/emulation/viper-macs.el | |
| parent | 99358b9788c9c6849f8fa17984dfa57853502cd7 (diff) | |
| download | emacs-1e70790f2f4826c646d5640a9f6162aa78ea682b.tar.gz | |
new version
Diffstat (limited to 'lisp/emulation/viper-macs.el')
| -rw-r--r-- | lisp/emulation/viper-macs.el | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/lisp/emulation/viper-macs.el b/lisp/emulation/viper-macs.el index 07e39038b47..7f98bfb0008 100644 --- a/lisp/emulation/viper-macs.el +++ b/lisp/emulation/viper-macs.el @@ -27,6 +27,7 @@ (defvar vip-ex-work-buf) (defvar vip-custom-file-name) (defvar vip-current-state) +(defvar vip-fast-keyseq-timeout) ;; loading happens only in non-interactive compilation ;; in order to spare non-viperized emacs from being viperized @@ -71,19 +72,17 @@ (defvar vip-last-kbd-macro nil "Vector of keys representing the name of last Viper keyboard macro.") -(defconst vip-fast-keyseq-timeout 200 - "*Key sequence separated by no more than this many milliseconds is viewed as a macro, if such a macro is defined. -This also controls ESC-keysequences generated by keyboard function keys.") +(defcustom vip-repeat-from-history-key 'f12 + "Prefix key for accessing previously typed Vi commands. - -(defvar vip-repeat-from-history-key 'f12 - "Prefix key for invocation of vip-repeat-from-history function, -which repeats previous destructive commands from the history of such -commands. -This function can then be invoked as <this-key> 1 or <this-key> 2. +The previous command is accessible, as usual, via `.'. The command before this +can be invoked as `<this key> 1', and the command before that, and the command +before that one is accessible as `<this key> 2'. The notation for these keys is borrowed from XEmacs. Basically, a key is a symbol, e.g., `a', `\\1', `f2', etc., or a list, e.g., -`(meta control f1)'.") +`(meta control f1)'." + :type 'key + :group 'viper) @@ -544,7 +543,7 @@ there." (vip-display-macro macro-name) state-name major-mode)) ((cdr (setq macro-pair (vip-kbd-global-pair macro-entry))) (message - "Global mapping of %S for %s is removed" + "Global mapping for %S in %s is removed" (vip-display-macro macro-name) state-name)) (t (error "%S is not mapped to a macro for %s in `%s'" (vip-display-macro macro-name) |