diff lisp/emulation/viper-macs.el @ 18839:1405083241e8

new version

--- a/lisp/emulation/viper-macs.el	Thu Jul 17 19:15:13 1997 +0000
+++ b/lisp/emulation/viper-macs.el	Thu Jul 17 19:37:07 1997 +0000
@@ -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 @@
 		    (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)