branch: externals/ement
commit a2fc8a3a4a242956f4be7a8eb6c1093ae1ce4004
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Tidy: Use ash instead of lsh
---
ement-lib.el | 4 ++--
ement-room.el | 4 ++--
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/ement-lib.el b/ement-lib.el
index 51f9fd59c5..95dcf1b751 100644
--- a/ement-lib.el
+++ b/ement-lib.el
@@ -933,8 +933,8 @@ avatars, etc."
(ratio (/ id-hash (float most-positive-fixnum)))
(color-num (round (* (* 255 255 255) ratio)))
(color-rgb (list (/ (float (logand color-num 255)) 255)
- (/ (float (lsh (logand color-num 65280) -8)) 255)
- (/ (float (lsh (logand color-num 16711680) -16))
255)))
+ (/ (float (ash (logand color-num 65280) -8)) 255)
+ (/ (float (ash (logand color-num 16711680) -16))
255)))
(contrast-with-rgb (color-name-to-rgb contrast-with)))
(when (< (contrast-ratio color-rgb contrast-with-rgb)
ement-room-prism-minimum-contrast)
(setf color-rgb (increase-contrast color-rgb contrast-with-rgb
ement-room-prism-minimum-contrast
diff --git a/ement-room.el b/ement-room.el
index eb8f2c5f4f..00482bb8ea 100644
--- a/ement-room.el
+++ b/ement-room.el
@@ -3556,8 +3556,8 @@ HTML is rendered to Emacs text using
`shr-insert-document'."
(ratio (/ id-hash (float most-positive-fixnum)))
(color-num (round (* (* 255 255 255) ratio)))
(color-rgb (list (/ (float (logand color-num 255)) 255)
- (/ (float (lsh (logand color-num 65280) -8)) 255)
- (/ (float (lsh (logand color-num 16711680) -16))
255)))
+ (/ (float (ash (logand color-num 65280) -8)) 255)
+ (/ (float (ash (logand color-num 16711680) -16))
255)))
(background-rgb (color-name-to-rgb (face-background 'default))))
(when (< (contrast-ratio color-rgb background-rgb)
ement-room-prism-minimum-contrast)
(setf color-rgb (increase-contrast color-rgb background-rgb
ement-room-prism-minimum-contrast
