From 7719734dd7b216e29ee7f5be5077d13004903a7d Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Mon, 3 Sep 2012 13:16:52 +0200 Subject: [PATCH] org-compat.el: New compatibility function `org-random' * org-compat.el (org-random): New compatibility function. * org-id.el (org-id-uuid): Use it. --- lisp/org-compat.el | 6 ++++++ lisp/org-id.el | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 760428496..7c65233bd 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -460,6 +460,12 @@ 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 0c7a1b52d..365b35a27 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" - (random t) + (org-random) (current-time) (user-uid) (emacs-pid) -- 2.11.4.GIT