mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/cl-lib.el (cl--random-time): Remove as well

Browse source 
It's also defined in cl-extra.el.
This commit is contained in:
Stefan Monnier 2017-07-14 10:29:10 -04:00
parent 1e09f8d379
commit 0f3cc0b824
1 changed files with 0 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/cl-lib.el
View file

@ -288,11 +288,6 @@ If true return the decimal value of digit CHAR in RADIX."
(let ((n (aref cl-digit-char-table char))) (let ((n (aref cl-digit-char-table char)))
(and n (< n (or radix 10)) n))) (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 (defconst cl-most-positive-float nil
"The largest value that a Lisp float can hold. "The largest value that a Lisp float can hold.
If your system supports infinities, this is the largest finite value. If your system supports infinities, this is the largest finite value.