From 0bd552a47faafa17a55f56f152dbe09ab2283c2c Mon Sep 17 00:00:00 2001 From: David Robillard Date: Sun, 10 Dec 2017 12:57:52 +0100 Subject: Fix visible bell --- emacs.d/init.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'emacs.d/init.el') diff --git a/emacs.d/init.el b/emacs.d/init.el index 5043e92..5aaacb8 100644 --- a/emacs.d/init.el +++ b/emacs.d/init.el @@ -219,9 +219,11 @@ (setq ring-bell-function (lambda () - (lexical-let ((fg (face-foreground 'mode-line))) + (let ((orig-fg (face-foreground 'mode-line))) (set-face-foreground 'mode-line "#F2804F") - (run-with-idle-timer 0.1 nil (lambda () (set-face-foreground 'mode-line fg)))))) + (run-with-idle-timer 0.1 nil + (lambda (fg) (set-face-foreground 'mode-line fg)) + orig-fg)))) ;;; Colours -- cgit v1.2.1