branch: externals/exwm
commit fb73aaaf8f67e601c41555262c46a29171ccbc6a
Author: Adrián Medraño Calvo <adr...@medranocalvo.com>
Commit: Adrián Medraño Calvo <adr...@medranocalvo.com>
Convert `lsh' to `ash'
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'.
---
exwm-core.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/exwm-core.el b/exwm-core.el
index defe2f7523..890963d17c 100644
--- a/exwm-core.el
+++ b/exwm-core.el
@@ -200,9 +200,9 @@ If FRAME is null, use selected frame."
(when (and color
(eq (x-display-visual-class) 'true-color))
(let ((rgb (x-color-values color)))
- (logior (lsh (lsh (pop rgb) -8) 16)
- (lsh (lsh (pop rgb) -8) 8)
- (lsh (pop rgb) -8)))))
+ (logior (ash (ash (pop rgb) -8) 16)
+ (ash (ash (pop rgb) -8) 8)
+ (ash (pop rgb) -8)))))
(defun exwm--get-visual-depth-colormap (conn id)
"Get visual, depth and colormap from X window ID.
