- (add-hook 'pre-command-hook 'turn-off-spray-mode)
- ;; disable incompatible minor-modes
- (when (boundp 'global-hl-line-mode)
- (setq spray--saved-global-hl-line-mode global-hl-line-mode)
- (set (make-local-variable 'global-hl-line-mode) nil))
- (when (boundp 'font-lock-mode)
- (setq spray--saved-font-lock-mode font-lock-mode)
- (font-lock-mode -1))
- (when (boundp 'hl-line-mode)
- (setq spray--saved-hl-line-mode hl-line-mode)
- (hl-line-mode -1)))