diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2004-12-16 22:56:08 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2004-12-16 22:56:08 +0000 |
| commit | 2d3da38b67b30129be20c34eac4514cf3c5109ef (patch) | |
| tree | eab612725fd94a86d9fa6f99b4b434e8661ba5cf /lisp/calc/calc-comb.el | |
| parent | 3cc2b29c6ae596534ffae6d9c9ad4f67dd52fb1d (diff) | |
| download | emacs-2d3da38b67b30129be20c34eac4514cf3c5109ef.tar.gz emacs-2d3da38b67b30129be20c34eac4514cf3c5109ef.tar.bz2 emacs-2d3da38b67b30129be20c34eac4514cf3c5109ef.zip | |
(math-random-digit): Call math-init-random-base if var-RandSeed is nil.
Diffstat (limited to 'lisp/calc/calc-comb.el')
| -rw-r--r-- | lisp/calc/calc-comb.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 |