mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Jay Belanger 2004-12-16 22:56:08 +00:00
parent 3cc2b29c6a
commit 2d3da38b67
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/calc/calc-comb.el
View File

@ -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