Lines Matching +defs:insert +defs:tab
34 (defvar viper-minibuffer-insert-face)
180 (viper-restore-cursor-color 'after-insert-mode)))
187 (defsubst viper-insert-state-post-command-sentinel ()
188 (if (and (memq viper-current-state '(insert-state replace-state))
189 viper-insert-point
190 (>= (point) viper-insert-point))
191 (setq viper-last-posn-while-in-insert-state (point-marker)))
196 (if (eq viper-current-state 'insert-state)
197 (let ((has-saved-cursor-color-in-insert-mode
198 (stringp (viper-get-saved-cursor-color-in-insert-mode))))
199 (or has-saved-cursor-color-in-insert-mode
200 (string= (viper-get-cursor-color) viper-insert-state-cursor-color)
202 (viper-save-cursor-color 'before-insert-mode))
203 ;; set insert mode cursor color
204 (viper-change-cursor-color viper-insert-state-cursor-color)))
217 (markerp viper-insert-point)
218 (marker-position viper-insert-point)
219 (> viper-insert-point viper-pre-command-point))
220 (viper-move-marker-locally viper-insert-point viper-pre-command-point))
224 (or (memq this-command '(self-insert-command
225 viper-del-backward-char-in-insert
234 (defsubst viper-insert-state-pre-command-sentinel ()
236 (viper-restore-cursor-color 'after-insert-mode))
238 (markerp viper-insert-point)
239 (marker-position viper-insert-point))
240 (setq viper-pre-command-point (marker-position viper-insert-point))))
255 ;; to speed up, don't change cursor color before self-insert
285 ;; We optimize for some commands, like self-insert-command,
318 ;; Change state to NEW-STATE---either emacs-state, vi-state, or insert-state.
339 ;; These hooks will be added back if switching to insert/replace mode
341 'viper-insert-state-post-command-sentinel 'local)
343 'viper-insert-state-pre-command-sentinel 'local)
346 (cond ((member viper-current-state '(insert-state replace-state))
348 ;; move viper-last-posn-while-in-insert-state
349 ;; This is a normal hook that is executed in insert/replace
354 ;; insert/repl state was dabbrev-expansion or abbrev
356 (viper-insert-state-post-command-sentinel)
361 viper-insert-point
362 viper-last-posn-while-in-insert-state)
365 ;; repeat insert commands if numerical arg > 1
367 (viper-repeat-insert-command))))
379 ;; insert or replace
380 ((memq new-state '(insert-state replace-state))
382 (viper-move-marker-locally 'viper-insert-point (point)))
384 'viper-last-posn-while-in-insert-state (point))
386 'viper-insert-state-post-command-sentinel t 'local)
388 'viper-insert-state-pre-command-sentinel t 'local))
417 (cond ((memq state '(insert-state replace-state))
420 (define-key viper-insert-basic-map "\C-m" 'viper-autoindent)
421 (if viper-want-emacs-keys-in-insert
423 (define-key viper-insert-basic-map "\C-j" nil)
425 (define-key viper-insert-basic-map "\C-j" 'viper-autoindent)))
426 (define-key viper-insert-basic-map "\C-m" nil)
427 (define-key viper-insert-basic-map "\C-j" nil))
429 (setq viper-insert-diehard-minor-mode
430 (not viper-want-emacs-keys-in-insert))
434 (define-key viper-insert-basic-map "\C-h" 'help-command)
436 (define-key viper-insert-basic-map
437 "\C-h" 'viper-del-backward-char-in-insert)
441 (define-key viper-insert-basic-map
442 [backspace] 'viper-del-backward-char-in-insert)
445 ) ; end insert/replace case
463 (cons 'viper-insert-intercept-minor-mode viper-insert-intercept-map)
479 ;; viper-insert-minibuffer-minor-mode must come after
481 (cons 'viper-insert-minibuffer-minor-mode
483 (cons 'viper-insert-local-user-minor-mode
484 viper-insert-local-user-map)
485 (cons 'viper-insert-kbd-minor-mode viper-insert-kbd-map)
486 (cons 'viper-insert-global-user-minor-mode
487 viper-insert-global-user-map)
488 (cons 'viper-insert-state-modifier-minor-mode
491 viper-insert-state-modifier-alist)))
493 viper-insert-state-modifier-alist))
495 (cons 'viper-insert-diehard-minor-mode viper-insert-diehard-map)
496 (cons 'viper-insert-basic-minor-mode viper-insert-basic-map)
514 ;; viper-vi-local-user-map, viper-insert-local-user-map, and others can have
516 ;; with viper-vi/insert-state-modifier-minor-mode can be different.
538 ((eq viper-current-state 'insert-state) viper-insert-state-id)))
545 (defun viper-exit-insert-state ()
554 viper-insert-minibuffer-minor-mode nil
556 viper-insert-intercept-minor-mode nil
567 viper-insert-local-user-minor-mode nil
568 viper-insert-kbd-minor-mode nil
569 viper-insert-global-user-minor-mode nil
570 viper-insert-state-modifier-minor-mode nil
571 viper-insert-diehard-minor-mode nil
572 viper-insert-basic-minor-mode nil
603 (if (member state '(insert-state replace-state))
605 viper-insert-intercept-minor-mode t
607 viper-insert-minibuffer-minor-mode (viper-is-in-minibuffer)
608 viper-insert-local-user-minor-mode t
609 viper-insert-kbd-minor-mode (not (viper-is-in-minibuffer))
610 viper-insert-global-user-minor-mode t
611 viper-insert-state-modifier-minor-mode t
614 viper-insert-diehard-minor-mode (not
616 viper-want-emacs-keys-in-insert
618 viper-insert-basic-minor-mode t
631 ((memq state '(insert-state replace-state))
632 viper-minibuffer-insert-face))))
664 (viper-restore-cursor-color 'after-insert-mode))
674 (defun viper-change-state-to-insert ()
677 (viper-change-state 'insert-state)
683 (let ((has-saved-cursor-color-in-insert-mode
684 (stringp (viper-get-saved-cursor-color-in-insert-mode))))
685 (or has-saved-cursor-color-in-insert-mode
686 (string= (viper-get-cursor-color) viper-insert-state-cursor-color)
687 (viper-save-cursor-color 'before-insert-mode))
688 (viper-change-cursor-color viper-insert-state-cursor-color))
692 (run-hooks 'viper-insert-state-hook)
696 (defsubst viper-downgrade-to-insert ()
699 (run-hooks 'viper-insert-state-hook)
702 (setq viper-current-state 'insert-state
708 ;; replace state changes to insert state.
711 ;; Run insert-state-hook
713 (run-hooks 'viper-insert-state-hook 'viper-replace-state-hook)
779 viper-insert-kbd-minor-mode
827 (defun viper-special-read-and-insert-char ()
836 viper-insert-kbd-minor-mode
860 (insert ch)
861 (insert quail-current-str))
882 (insert ch)
883 (insert quail-current-str))
895 (insert ch))
911 (insert ch))
1132 ((eq viper-current-state 'insert-state)
1133 'viper-exit-insert-state)
1406 (insert viper-last-insertion)
1420 (insert " ")(backward-char 1)))
1455 (viper-change-state-to-insert)
1598 ;; denotes repeated insert command.
1928 (defun viper-insert-prev-from-insertion-ring (arg)
1936 (if (eq last-command 'viper-insert-from-insertion-ring)
1947 (setq this-command 'viper-insert-from-insertion-ring)
1958 (insert viper-last-inserted-string-from-insertion-ring))
1961 (defun viper-insert-next-from-insertion-ring ()
1965 (viper-insert-prev-from-insertion-ring 'next))
1990 (insert "\n")
2036 (insert quote-str)
2040 (insert quote-str)
2071 (defun viper-tmp-insert-at-eob (msg)
2074 (insert msg)
2091 'viper-change-state-to-insert
2112 (viper-tmp-insert-at-eob init-message))
2122 (insert initial))))
2186 (insert suff))))
2190 (viper-tmp-insert-at-eob " [Please complete file name]")
2196 (cond ((eq cmd 'self-insert-command)
2198 (insert (events-to-keys key)) ; xemacs
2199 (insert key) ; emacs
2290 (defun viper-repeat-insert-command ()
2301 (defun viper-insert (arg)
2308 (viper-set-destructive-command (list 'viper-insert val ?r nil nil nil))
2311 (viper-change-state-to-insert))))
2324 (viper-change-state-to-insert))))
2337 (viper-change-state-to-insert))))
2350 (viper-change-state-to-insert))))
2370 (viper-change-state-to-insert)))))
2390 (viper-change-state-to-insert)))))
2406 (viper-change-state-to-insert))))
2503 (if (memq this-command '(self-insert-command
2504 quoted-insert viper-insert-tab))
2545 (viper-downgrade-to-insert))
2565 (viper-downgrade-to-insert))
2590 (setq com 'viper-exit-insert-state)
2718 (viper-special-read-and-insert-char))
2723 (if com (insert char))
2729 (insert char))
3074 (not (equal viper-current-state 'insert-state)))
4113 (insert text)
4140 (insert "\n")
4278 (defun viper-del-backward-char-in-insert ()
4279 "Delete 1 char backwards while in insert mode."
4331 ;; between objects, so we insert it as in Vi
4333 (insert " ")
4371 (insert-before-markers "@") ; put placeholder after the TAB
4380 ;; has to be shifted because of insert. We can't simply insert
4390 (viper-change-state-to-insert))
4419 (insert-char (downcase c) 1)
4420 (insert-char (upcase c) 1))
4622 (defun viper-insert-tab ()
4624 (insert-tab))
4694 ;; use \n instead of newline, or else <Return> will move the insert point
4696 (insert "\n")
4828 viper-want-emacs-keys-in-insert nil))
4836 viper-want-emacs-keys-in-insert (> viper-expert-level 2))
4878 viper-want-emacs-keys-in-insert
4879 (viper-standard-value 'viper-want-emacs-keys-in-insert))))
4905 (insert "
4918 in Viper's insert state.
4924 and viper-want-emacs-keys-in-insert. Adjust these to your taste.
4934 (insert
4997 minibuffer-emacs-face minibuffer-vi-face minibuffer-insert-face
5008 minibuffer-insert-face (if (viper-has-face-support-p)
5010 viper-minibuffer-insert-face)
5020 'viper-insert-minibuffer-minor-mode
5029 'viper-insert-intercept-minor-mode
5030 'viper-insert-local-user-minor-mode
5031 'viper-insert-kbd-minor-mode
5032 'viper-insert-global-user-minor-mode
5033 'viper-insert-state-modifier-minor-mode
5034 'viper-insert-diehard-minor-mode
5035 'viper-insert-basic-minor-mode
5043 'viper-want-emacs-keys-in-insert
5054 'viper-insert-state-hook
5065 'minibuffer-insert-face