Mirrors/exwm2
2
0
Fork 0
mirror of https://github.com/emacs-exwm/exwm.git synced 2024-11-23 21:17:59 +01:00
Code Issues Projects Releases Packages Wiki Activity

Use color-values instead of x-color-values

Browse source 
* exwm-core.el (exwm--color->pixel): Use `color-values` (introduced in
  Emacs 21) instead of `x-color-values` (deprecated in Emacs 30).
This commit is contained in:
Steven Allen 2024-01-23 15:15:44 -08:00 committed by Daniel Mendler
parent 089e0c8683
commit 0e365a0058
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
exwm-core.el
View file

@ -206,7 +206,7 @@ If FRAME is null, use selected frame."
"Convert COLOR to PIXEL (index in TrueColor colormap)." "Convert COLOR to PIXEL (index in TrueColor colormap)."
(when (and color (when (and color
(eq (x-display-visual-class) 'true-color)) (eq (x-display-visual-class) 'true-color))
(let ((rgb (x-color-values color))) (let ((rgb (color-values color)))
(logior (ash (ash (pop rgb) -8) 16) (logior (ash (ash (pop rgb) -8) 16)
(ash (ash (pop rgb) -8) 8) (ash (ash (pop rgb) -8) 8)
(ash (pop rgb) -8))))) (ash (pop rgb) -8)))))