From 2d3da38b67b30129be20c34eac4514cf3c5109ef Mon Sep 17 00:00:00 2001
From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Thu, 16 Dec 2004 22:56:08 +0000
Subject: [PATCH] (math-random-digit): Call math-init-random-base if
 var-RandSeed is nil.

---
 lisp/calc/calc-comb.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/calc/calc-comb.el b/lisp/calc/calc-comb.el
index 24e3e5f182e..262db6c9bda 100644
--- a/lisp/calc/calc-comb.el
+++ b/lisp/calc/calc-comb.el
@@ -601,7 +601,7 @@
 ;;; Shuffling algorithm from Numerical Recipes, section 7.1.
 (defun math-random-digit ()
   (let (i math-random-last)
-    (or (eq var-RandSeed math-last-RandSeed)
+    (or (and var-RandSeed (eq var-RandSeed math-last-RandSeed))
 	(math-init-random-base))
     (or math-random-cache
 	(progn
-- 
2.39.5