- (text-scale-set spray-text-scale)
- (overlay-put spray--orp-overlay 'face spray-orp-face)
- (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)))
+ (overlay-put spray--base-overlay 'priority 100)
+ (overlay-put spray--base-overlay 'face 'spray-base-face)
+ (overlay-put spray--orp-overlay 'priority 101)
+ (overlay-put spray--orp-overlay 'face 'spray-orp-face)
+ (add-hook 'pre-command-hook 'turn-off-spray-mode))