comparison lisp/emulation/viper-macs.el @ 12695:3d339e94aece

(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.

12694:9dedaee6ee1c

(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.")


(defvar vip-repeat-from-history-key 'f1
  "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 notation for these keys is borrowed from XEmacs. Basically,

	      (format ":map%s %s"
		 variant (if (> (length key-seq) 0)
			     (prin1-to-string (vip-display-macro key-seq))
			   "")))
	(message message)
	(setq event (vip-read-event))
	(setq key
	      (if (vip-mouse-event-p event)
		  (progn
		    (message "%s (No mouse---only keyboard keys, please)"
			     message)

		      variant (if (> (length key-seq) 0)
				  (prin1-to-string
				   (vip-display-macro key-seq))
				"")))
	(message message)
	(setq event (vip-read-event))
	(setq key
	      (if (vip-mouse-event-p event)
		  (progn
		    (message "%s (No mouse---only keyboard keys, please)"
			     message)

    ;; convert macro names into vector, if starts with a `['
    (if (memq (elt macro-name 0) '(?\[ ?\"))
	(car (read-from-string macro-name))
      (vconcat macro-name))
    ))
    
    
    
(defun vip-end-mapping-kbd-macro (&optional ignore)
  "Terminate kbd macro."
  (interactive)

(defun vip-read-fast-keysequence (event macro-alist)
  (let ((lis (vector event))
	next-event)
    (while (and (vip-fast-keysequence-p)
		(vip-keyseq-is-a-possible-macro lis macro-alist))
      (setq next-event (vip-read-event))
      (or (vip-mouse-event-p next-event)
	  (setq lis (vconcat lis (vector next-event)))))
    lis))



12695:3d339e94aece

(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.")


(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 notation for these keys is borrowed from XEmacs. Basically,

	      (format ":map%s %s"
		 variant (if (> (length key-seq) 0)
			     (prin1-to-string (vip-display-macro key-seq))
			   "")))
	(message message)
	(setq event (vip-read-key))
	;;(setq event (vip-read-event))
	(setq key
	      (if (vip-mouse-event-p event)
		  (progn
		    (message "%s (No mouse---only keyboard keys, please)"
			     message)

		      variant (if (> (length key-seq) 0)
				  (prin1-to-string
				   (vip-display-macro key-seq))
				"")))
	(message message)
	(setq event (vip-read-key))
	;;(setq event (vip-read-event))
	(setq key
	      (if (vip-mouse-event-p event)
		  (progn
		    (message "%s (No mouse---only keyboard keys, please)"
			     message)

    ;; convert macro names into vector, if starts with a `['
    (if (memq (elt macro-name 0) '(?\[ ?\"))
	(car (read-from-string macro-name))
      (vconcat macro-name))
    ))
    
    
(defun vip-end-mapping-kbd-macro (&optional ignore)
  "Terminate kbd macro."
  (interactive)

(defun vip-read-fast-keysequence (event macro-alist)
  (let ((lis (vector event))
	next-event)
    (while (and (vip-fast-keysequence-p)
		(vip-keyseq-is-a-possible-macro lis macro-alist))
      (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))