Lines Matching +defs:insert +defs:char
66 ;; same for insert/replace state
67 (defvar viper-insert-kbd-macro-alist nil)
99 (let ((mod-char "")
106 mod-char "!")
107 (forward-char 1))))
108 (setq map-args (ex-map-read-args mod-char)
111 (setq viper-kbd-macro-parameters (list ins mod-char macro-name macro-body))
114 (ex-fixup-history (format "map%s %S" mod-char
116 ;; if defining macro for insert, switch there for authentic WYSIWYG
117 (if ins (viper-change-state-to-insert))
120 (define-key viper-insert-intercept-map "\C-x)" 'viper-end-mapping-kbd-macro)
130 (let ((mod-char "")
137 mod-char "!")
138 (forward-char 1))))
140 (setq macro-name (ex-unmap-read-args mod-char))
142 (ex-fixup-history (format "unmap%s %S" mod-char
144 (viper-unrecord-kbd-macro macro-name (if ins 'insert-state 'vi-state))
207 (if (viper-char-array-p macro-name)
208 (setq macro-name (viper-char-array-to-macro macro-name)))
211 (cond ((viper-char-array-p macro-body)
212 (setq macro-body (viper-char-array-to-macro macro-body)))
224 viper-insert-kbd-macro-alist
228 viper-vi-kbd-minor-mode viper-insert-kbd-minor-mode
230 viper-vi-intercept-minor-mode viper-insert-intercept-minor-mode
298 (define-key viper-insert-intercept-map "\C-x)" nil)
304 (let ((mod-char (nth 1 viper-kbd-macro-parameters))
318 (if ins 'insert-state 'vi-state)
321 (ex-fixup-history (format "map%s %S %S" mod-char
340 either `vi-state' or `insert-state'. It specifies the Viper state in which to
351 ((memq state '(insert-state replace-state))
353 keymap viper-insert-kbd-map)
354 'viper-insert-kbd-macro-alist)
370 (if (viper-char-array-p macro-name)
371 (setq macro-name (viper-char-array-to-macro macro-name)))
373 (if (viper-char-array-p macro-body)
374 (setq macro-body (viper-char-array-to-macro macro-body)))
461 ;; insert new-elt in macro-alist-var and keep the list sorted
510 ((memq state '(insert-state replace-state))
512 keymap viper-insert-kbd-map)
513 'viper-insert-kbd-macro-alist)
525 (if (viper-char-array-p macro-name)
526 (setq macro-name (viper-char-array-to-macro macro-name)))
582 ;; CHAR. If not, this indicates that the binding for this char
583 ;; in viper-vi/insert-kbd-map can be released.
584 (defun viper-can-release-key (char macro-alist)
591 (if (eq char (aref macro-name 0))
603 '(insert-state replace-state))
604 viper-insert-kbd-macro-alist)
610 viper-vi-kbd-minor-mode viper-insert-kbd-minor-mode
613 macro-first-char macro-alist-elt macro-body
616 (setq macro-first-char last-command-event
617 event-seq (viper-read-fast-keysequence macro-first-char macro-alist)
666 (mapcar 'viper-describe-one-macro viper-insert-kbd-macro-alist)
807 (cond ((viper-char-symbol-sequence-p macro-name-or-body)
809 ((viper-char-array-p macro-name-or-body)
810 (mapconcat 'char-to-string macro-name-or-body ""))
829 (defun viper-char-array-to-macro (array)
854 (intern (char-to-string (+ ?0 elt)))))
857 (intern (char-to-string (+ ?0 elt)))))
909 (let ((reg (downcase (read-char))))
925 (setq reg (downcase (read-char)))