[Emacs-diffs] master 0f3cc0b: * lisp/emacs-lisp/cl-lib.el (cl--random-time): Remove as well

[Stefan Monnier]

branch: master
commit 0f3cc0b8245dfd7a9f6fcc95ec148be03fde8931
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * lisp/emacs-lisp/cl-lib.el (cl--random-time): Remove as well
    
    It's also defined in cl-extra.el.
---
 lisp/emacs-lisp/cl-lib.el | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/lisp/emacs-lisp/cl-lib.el b/lisp/emacs-lisp/cl-lib.el
index 3c9c622..c183852 100644
--- a/lisp/emacs-lisp/cl-lib.el
+++ b/lisp/emacs-lisp/cl-lib.el
@@ -288,11 +288,6 @@ If true return the decimal value of digit CHAR in RADIX."
   (let ((n (aref cl-digit-char-table char)))
     (and n (< n (or radix 10)) n)))
 
-(defun cl--random-time ()
-  (let* ((time (copy-sequence (current-time-string))) (i (length time)) (v 0))
-    (while (>= (cl-decf i) 0) (setq v (+ (* v 3) (aref time i))))
-    v))
-
 (defconst cl-most-positive-float nil
   "The largest value that a Lisp float can hold.
 If your system supports infinities, this is the largest finite value.