lisp/emulation/viper-cmd.el

47 (defvar init-message)
167 ;; Runs viper-after-change-functions inside after-change-functions
168 (defun viper-after-change-sentinel (beg end len)
169   (run-hook-with-args 'viper-after-change-functions beg end len))
173   (run-hook-with-args 'viper-before-change-functions beg end))
180       (viper-restore-cursor-color 'after-insert-mode)))
236       (viper-restore-cursor-color 'after-insert-mode))
245   ;; in another frame, the pre-command hook won't change cursor color to
252     (viper-restore-cursor-color 'after-replace-mode)
259       (viper-restore-cursor-color 'after-replace-mode)))
280   ;; in another frame, the pre-command hook won't change cursor color to
290       (viper-restore-cursor-color 'after-replace-mode))
322   ;; desirable that viper-pre-command-sentinel is the last hook and
323   ;; viper-post-command-sentinel is the first hook.
328      (make-local-hook 'viper-after-change-functions)
329      (make-local-hook 'viper-before-change-functions)
330      (make-local-hook 'viper-post-command-hooks)
331      (make-local-hook 'viper-pre-command-hooks))
335   (remove-hook 'post-command-hook 'viper-post-command-sentinel)
336   (add-hook 'post-command-hook 'viper-post-command-sentinel)
337   (remove-hook 'pre-command-hook 'viper-pre-command-sentinel)
338   (add-hook 'pre-command-hook 'viper-pre-command-sentinel t)
340   (remove-hook 'viper-post-command-hooks
342   (remove-hook 'viper-pre-command-hooks
349 		;; This is a normal hook that is executed in insert/replace
350 		;; states after each command.  In Vi/Emacs state, it does
385 	 (add-hook 'viper-post-command-hooks
387 	 (add-hook 'viper-pre-command-hooks
479 	       ;; viper-insert-minibuffer-minor-mode must come after
663 	(viper-restore-cursor-color 'after-emacs-mode)
664       (viper-restore-cursor-color 'after-insert-mode))
670 	(run-hooks 'viper-vi-state-hook)
692       (run-hooks 'viper-insert-state-hook)
699       (run-hooks 'viper-insert-state-hook)
711   ;; Run insert-state-hook
713       (run-hooks 'viper-insert-state-hook 'viper-replace-state-hook)
743       (run-hooks 'viper-emacs-state-hook)
843 	       ;; original state. We don't want anything left in there after
982   (eval-after-load load-file '(viper-normalize-minor-mode-map-alist))
988     (eval-after-load
1105 	    ;; this is escape event with nothing after it
1759 ;; hook used inside undo
1764   (run-hook-with-args 'viper-undo-functions beg end length))
1766 (add-hook 'after-change-functions 'viper-undo-sentinel)
1769 (defun viper-after-change-undo-hook (beg end len)
1774     ;; the buffer in response to 'undo'; so remove this hook to avoid
1776     (remove-hook 'viper-undo-functions 'viper-after-change-undo-hook 'local)
1787     ;; the viper-after-change-undo-hook removes itself after the 1st invocation
1788     (add-hook 'viper-undo-functions 'viper-after-change-undo-hook nil 'local)
1839 		  (setq tmp2 (cdr tmp)) ; the part after mark
1953     ;; this change of viper-intermediate-command must come after
2085   (add-hook 'minibuffer-setup-hook 'viper-minibuffer-setup-sentinel)
2086   (add-hook 'post-command-hook 'viper-minibuffer-post-command-hook))
2090   (let ((hook (if viper-vi-style-in-minibuffer
2103     (funcall hook)
2106 ;; Thie is a temp hook that uses free variables init-message and initial.
2110 (defun viper-minibuffer-standard-hook ()
2111   (if (stringp init-message)
2112       (viper-tmp-insert-at-eob init-message))
2129 (defun viper-minibuffer-post-command-hook()
2136 ;; Run viper-minibuffer-exit-hook before exiting.
2142     (run-hooks 'viper-minibuffer-exit-hook)
2169 ;; Used as a minibuffer exit hook in read-file-name
2210 Remove this function from `viper-minibuffer-exit-hook', if this causes
2224 					      init-message)
2231   ;; INIT-MESSAGE is the message temporarily displayed after entering the
2233   (let ((minibuffer-setup-hook
2234 	 ;; stolen from add-hook
2236 		(if (boundp 'minibuffer-setup-hook)
2237 		    minibuffer-setup-hook
2240 	    'viper-minibuffer-standard-hook
2257     (setq minibuffer-setup-hook nil
2314   "Append after point."
2436   (add-hook
2437    'viper-after-change-functions 'viper-replace-mode-spy-after t 'local)
2438   (add-hook
2441   (add-hook 'after-change-functions 'viper-after-change-sentinel t)
2442   (add-hook 'before-change-functions 'viper-before-change-sentinel t)
2445   (add-hook
2448   (add-hook
2451   (remove-hook
2461 ;; Invoked as an after-change-function to calculate how many chars have to be
2466 (defun viper-replace-mode-spy-after (beg end length)
2525   (remove-hook
2526    'viper-after-change-functions 'viper-replace-mode-spy-after 'local)
2527   (remove-hook
2529   (remove-hook
2531   (remove-hook
2533   (viper-restore-cursor-color 'after-replace-mode)
2561   (remove-hook
2563   (remove-hook
2570   (add-hook
2572   (add-hook
2575   (remove-hook
3204     ;; positioning is done twice: before and after command execution
3216 ;; adjust point after search.
3415     ;; positioning is done twice: before and after command execution
3435     ;; positioning is done twice: before and after command execution
3455     ;; positioning is done twice: before and after command execution
3920 			    &optional no-offset init-point fail-if-not-found)
3926 	  (start-point (or init-point (point))))
4117   "Put back after point/below line."
4371 	    (insert-before-markers "@") ; put placeholder after the TAB
5053 		        'viper-vi-state-hook
5054 		        'viper-insert-state-hook
5055 		        'viper-replace-state-hook
5056 		        'viper-emacs-state-hook