From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Thu, 16 Dec 2004 22:56:08 +0000 (+0000)
Subject: (math-random-digit): Call math-init-random-base if var-RandSeed is nil.
X-Git-Tag: ttn-vms-21-2-B4~3235
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2d3da38b67b30129be20c34eac4514cf3c5109ef;p=emacs.git

(math-random-digit): Call math-init-random-base if var-RandSeed is nil.
---

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