[elpa] externals/rcirc-color 6c69994cb8 5/6: * rcirc-color.el (rcirc-do-color): Use a let* to make random choice

[Philip Kaludercic]

branch: externals/rcirc-color
commit 6c69994cb82c85e2d3632813978a597c037f98a4
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    * rcirc-color.el (rcirc-do-color): Use a let* to make random choice
---
 rcirc-color.el | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/rcirc-color.el b/rcirc-color.el
index 356fa89e21..1c9a0cfced 100644
--- a/rcirc-color.el
+++ b/rcirc-color.el
@@ -158,11 +158,10 @@ commands."
                  rcirc-color-mapping)
         (rcirc-print process (rcirc-nick process) "NOTICE" target
                      (mapconcat 'identity names " ")))
-    (puthash nick
-             (cons 'foreground-color
-                   (elt rcirc-colors
-                        (random (length rcirc-colors))))
-             rcirc-color-mapping)))
+    (let* ((index (random (length rcirc-colors)))
+           (color (elt rcirc-colors index))
+           (face (cons 'foreground-color color)))
+      (puthash nick face rcirc-color-mapping))))
 
 (defun rcirc-color--handler-NICK (_process sender args _text)
   "Update colors in `rcirc-color-mapping'."