diff options
author | Bastien Guerry <bzg@altern.org> | 2012-09-03 13:16:52 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-09-03 13:16:52 +0200 |
commit | 7719734dd7b216e29ee7f5be5077d13004903a7d (patch) | |
tree | fbd119df526b95cd967cdddec02f7c376392fe12 | |
parent | 069b5bab381b27242534fc88efee1642bf51ef61 (diff) |
org-compat.el: New compatibility function `org-random'release_7.9.1
* org-compat.el (org-random): New compatibility function.
* org-id.el (org-id-uuid): Use it.
-rw-r--r-- | lisp/org-compat.el | 6 | ||||
-rw-r--r-- | lisp/org-id.el | 2 |
2 files changed, 7 insertions, 1 deletions
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) |