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

Convert lsh' to ash'

Browse source 
The former is deprecated.  The behavioural difference between
those functions does not impact us here, because the numbers
returned by `x-color-values' are natural.

* exwm-core.el (exwm--color->pixel): Convert `lsh' to `ash'.
This commit is contained in:
Adrián Medraño Calvo 2023-08-18 00:00:00 +00:00
parent 612e64bf9b
commit fb73aaaf8f
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
exwm-core.el
View file

@ -200,9 +200,9 @@ If FRAME is null, use selected frame."
(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 (x-color-values color)))
(logior (lsh (lsh (pop rgb) -8) 16) (logior (ash (ash (pop rgb) -8) 16)
(lsh (lsh (pop rgb) -8) 8) (ash (ash (pop rgb) -8) 8)
(lsh (pop rgb) -8))))) (ash (pop rgb) -8)))))
(defun exwm--get-visual-depth-colormap (conn id) (defun exwm--get-visual-depth-colormap (conn id)
"Get visual, depth and colormap from X window ID. "Get visual, depth and colormap from X window ID.