# HG changeset patch
# User Michael Kifer <kifer@cs.stonybrook.edu>
# Date 806874119 0
# Node ID 3d339e94aece24210ec6bd5a622d0ed17b49685e
# Parent  9dedaee6ee1cd946e25cf63538f55477a84cbbde
(vip-repeat-from-history-key): new default.
(vip-read-fast-keysequence,ex-unmap-read-args,ex-map-read-args):
changed to use vip-read-key.

diff -r 9dedaee6ee1c -r 3d339e94aece lisp/emulation/viper-macs.el
--- a/lisp/emulation/viper-macs.el	Thu Jul 27 19:41:08 1995 +0000
+++ b/lisp/emulation/viper-macs.el	Thu Jul 27 19:41:59 1995 +0000
@@ -48,7 +48,7 @@
 This also controls ESC-keysequences generated by keyboard function keys.")
 
 
-(defvar vip-repeat-from-history-key 'f1
+(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.
@@ -154,7 +154,8 @@
 			     (prin1-to-string (vip-display-macro key-seq))
 			   "")))
 	(message message)
-	(setq event (vip-read-event))
+	(setq event (vip-read-key))
+	;;(setq event (vip-read-event))
 	(setq key
 	      (if (vip-mouse-event-p event)
 		  (progn
@@ -228,7 +229,8 @@
 				   (vip-display-macro key-seq))
 				"")))
 	(message message)
-	(setq event (vip-read-event))
+	(setq event (vip-read-key))
+	;;(setq event (vip-read-event))
 	(setq key
 	      (if (vip-mouse-event-p event)
 		  (progn
@@ -250,7 +252,6 @@
     ))
     
     
-    
 (defun vip-end-mapping-kbd-macro (&optional ignore)
   "Terminate kbd macro."
   (interactive)
@@ -848,7 +849,8 @@
 	next-event)
     (while (and (vip-fast-keysequence-p)
 		(vip-keyseq-is-a-possible-macro lis macro-alist))
-      (setq next-event (vip-read-event))
+      (setq next-event (vip-read-key))
+      ;;(setq next-event (vip-read-event))
       (or (vip-mouse-event-p next-event)
 	  (setq lis (vconcat lis (vector next-event)))))
     lis))