about summary refs log tree commit diff
path: root/exwm-core.el
diff options
context:
space:
mode:
authorAdrián Medraño Calvo <adrian@medranocalvo.com>2023-08-18T00·00+0000
committerAdrián Medraño Calvo <adrian@medranocalvo.com>2023-08-18T00·00+0000
commitfb73aaaf8f67e601c41555262c46a29171ccbc6a (patch)
treed4fc3309d9197cfd02da65032b516b6c3138c1dd /exwm-core.el
parent612e64bf9bcb45d832c60adc049523de80b0f934 (diff)
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'.
Diffstat (limited to 'exwm-core.el')
-rw-r--r--exwm-core.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/exwm-core.el b/exwm-core.el
index defe2f75231d..890963d17c9b 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.