awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

fix(god): cursor color change

Browse Source 
If the cursor's color changed from A to B, it didn't change back.

Close: #7841
Amend: #7049
Co-authored-by: darth10 <darth10@users.noreply.github.com>
This commit is contained in:
Henrik Lissner
2024-06-23 15:18:41 -04:00
parent 4af60fe066
commit c48a5e5f9c
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
modules/editor/god/autoload.el
View File

@ -13,7 +13,7 @@
(defun +god--configure-cursor-and-modeline-h ()
"Configure cursor type, cursor color and doom-modeline bar color depending on mode."
(let* ((is-fill-overflow (> (current-column) fill-column))
(previous-cursor-color (face-background 'cursor))
(previous-cursor-color (frame-parameter nil 'cursor-color))
(previous-modeline-color (and (facep 'doom-modeline-bar)
(face-background 'doom-modeline-bar)))
(is-god-mode (bound-and-true-p god-local-mode))
@ -26,7 +26,7 @@
(cond (buffer-read-only +god-read-only-mode-color)
(is-fill-overflow +god-fill-overflow-color)
(overwrite-mode +god-overwrite-mode-color)
(t previous-cursor-color))))
((or previous-cursor-color (face-background 'cursor))))))
(setq cursor-type next-cursor-type)
(unless (eq previous-cursor-color next-cursor-and-modeline-color)
(set-cursor-color next-cursor-and-modeline-color))