Mercurial > emacs

changeset 12695:3d339e94aece

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Michael Kifer <kifer@cs.stonybrook.edu>
date Thu, 27 Jul 1995 19:41:59 +0000
parents 9dedaee6ee1c
children dbbeba770da4
files lisp/emulation/viper-macs.el
diffstat 1 files changed, 7 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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))