diff options
author | Achim Gratz <Stromeko@Stromeko.DE> | 2012-09-11 21:42:38 +0200 |
---|---|---|
committer | Achim Gratz <Stromeko@Stromeko.DE> | 2012-09-11 21:42:38 +0200 |
commit | c5977e7e9d4ccf0c9ed0dde35827dab61f48ff74 (patch) | |
tree | bd3a11606d99c3143a3d936be044f4568025a94e | |
parent | f29131c3d2581a3089a5862dd84eb6cb435d2e45 (diff) | |
download | org-mode-c5977e7e9d4ccf0c9ed0dde35827dab61f48ff74.tar.gz |
Revert "org-compat.el: New compatibility function `org-random'"
This reverts commit 7719734dd7b216e29ee7f5be5077d13004903a7d.
* lisp/org-id.el: Do not use (random t), we just want a new random
number, not a re-seeding of the PRNG for which (random t) doesn't
provide enough entropy anyway. Even if (random) would always
produce the same sequence, the other components going into the MD5
hash ensure that the result will be unique.
-rw-r--r-- | lisp/org-compat.el | 6 | ||||
-rw-r--r-- | lisp/org-id.el | 2 |
2 files changed, 1 insertions, 7 deletions
diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 7c65233..7604284 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -460,12 +460,6 @@ With two arguments, return floor and remainder of their quotient." (defun org-release () "N/A") (defun org-git-version () "N/A !!check installation!!")))))) -(defun org-random () - "Call ̀€random' appropriately." - (if (or (featurep 'xemacs) (version< emacs-version "24.2.50.1")) - (random t) - (random))) - (provide 'org-compat) ;;; org-compat.el ends here diff --git a/lisp/org-id.el b/lisp/org-id.el index 365b35a..359d823 100644 --- a/lisp/org-id.el +++ b/lisp/org-id.el @@ -317,7 +317,7 @@ So a typical ID could look like \"Org:4nd91V40HI\"." (defun org-id-uuid () "Return string with random (version 4) UUID." (let ((rnd (md5 (format "%s%s%s%s%s%s%s" - (org-random) + (random) (current-time) (user-uid) (emacs-pid) |