Fix defvar-local

This commit is contained in:
Eric Dallo 2020-05-28 15:02:33 -03:00
parent cf1ac1be52
commit ea53fe8454
No known key found for this signature in database
GPG key ID: 985DD2B6664886B8

View file

@ -1960,7 +1960,7 @@ mouse-3: Fetch notifications"
;; ;;
;; Highlight the mode-line while debugging. ;; Highlight the mode-line while debugging.
(defvar doom-modeline--debug-cookie nil) (defvar-local doom-modeline--debug-cookie nil)
(defun doom-modeline--debug-visual (&rest _) (defun doom-modeline--debug-visual (&rest _)
"Update the face of mode-line for debugging." "Update the face of mode-line for debugging."
(mapc (lambda (buffer) (mapc (lambda (buffer)
@ -1973,8 +1973,8 @@ mouse-3: Fetch notifications"
(defun doom-modeline--normal-visual (&rest _) (defun doom-modeline--normal-visual (&rest _)
"Restore the face of mode-line." "Restore the face of mode-line."
(mapc (lambda (buffer) (mapc (lambda (buffer)
(when doom-modeline--debug-cookie (with-current-buffer buffer
(with-current-buffer buffer (when doom-modeline--debug-cookie
(face-remap-remove-relative doom-modeline--debug-cookie) (face-remap-remove-relative doom-modeline--debug-cookie)
(force-mode-line-update)))) (force-mode-line-update))))
(buffer-list))) (buffer-list)))