From a4e3276cd182f647b4b56e2a685a63b1ceb63c3e Mon Sep 17 00:00:00 2001 From: rekado Date: Sat, 18 Jun 2016 21:13:53 +0200 Subject: god: reset cursor to previous colour. --- lisp/init-god-mode.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisp/init-god-mode.el') diff --git a/lisp/init-god-mode.el b/lisp/init-god-mode.el index 7a8833f..0e70cc0 100644 --- a/lisp/init-god-mode.el +++ b/lisp/init-god-mode.el @@ -11,10 +11,11 @@ (?t (ad-set-arg 0 ?x)))) (ad-activate 'god-mode-lookup-key-sequence) + (defvar original-color (frame-parameter nil 'cursor-color)) (defun my-update-cursor () (if god-local-mode (set-cursor-color "Red") - (set-cursor-color "White"))) + (set-cursor-color original-color))) (define-key god-local-mode-map (kbd ".") 'repeat) -- cgit v1.2.3