Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 13:57:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(vip-repeat-from-history-key): new default.

Browse source 
(vip-read-fast-keysequence,ex-unmap-read-args,ex-map-read-args):
changed to use vip-read-key.
This commit is contained in:
Michael Kifer 1995-07-27 19:41:59 +00:00
parent 61d0d2548f
commit eac96cf9b8
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/emulation/viper-macs.el
View file

@ -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 @@ a key is a symbol, e.g., `a', `\\1', `f2', etc., or a list, e.g.,
(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 @@ a key is a symbol, e.g., `a', `\\1', `f2', etc., or a list, e.g.,
(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 @@ a key is a symbol, e.g., `a', `\\1', `f2', etc., or a list, e.g.,
))
(defun vip-end-mapping-kbd-macro (&optional ignore)
"Terminate kbd macro."
(interactive)
@ -848,7 +849,8 @@ there."
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))