diff options
| author | Adrián Medraño Calvo <adrian@medranocalvo.com> | 2023-08-18T00·00+0000 |
|---|---|---|
| committer | Adrián Medraño Calvo <adrian@medranocalvo.com> | 2023-08-18T00·00+0000 |
| commit | fb73aaaf8f67e601c41555262c46a29171ccbc6a (patch) | |
| tree | d4fc3309d9197cfd02da65032b516b6c3138c1dd /exwm-core.el | |
| parent | 612e64bf9bcb45d832c60adc049523de80b0f934 (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.el | 6 |
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. |