Function: viper-remove-hooks

viper-remove-hooks is a byte-compiled function defined in viper.el.gz.

Signature

(viper-remove-hooks SYMBOL)

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/viper.el.gz
;; remove viper hooks from SYMBOL
(defun viper-remove-hooks (symbol)
  (cond ((not (boundp symbol)) nil)
	((not (listp (symbol-value symbol))) nil)
	((string-match "-hook" (symbol-name symbol))
	 (remove-hook symbol #'viper-mode)
	 (remove-hook symbol #'viper-change-state-to-emacs)
	 (remove-hook symbol #'viper-change-state-to-insert)
	 (remove-hook symbol #'viper-change-state-to-vi)
	 (remove-hook symbol #'viper-minibuffer-post-command-hook)
	 (remove-hook symbol #'viper-minibuffer-setup-sentinel)
	 (remove-hook symbol #'viper-major-mode-change-sentinel)
	 (remove-hook symbol #'set-viper-state-in-major-mode)
	 (remove-hook symbol #'viper-post-command-sentinel)
	 )))