[Emacs-diffs] /srv/bzr/emacs/trunk r110785: Rename cl-random-time to cl--random-time

[Glenn Morris]

------------------------------------------------------------
revno: 110785
fixes bug: http://debbugs.gnu.org/12773
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2012-11-03 11:36:09 -0700
message:
  Rename cl-random-time to cl--random-time
  
  * emacs-lisp/cl-lib.el (cl--random-time): Rename from cl-random-time. 
  (cl--gensym-counter, cl--random-state): Update callers.
  * emacs-lisp/cl-extra.el (cl-make-random-state): Update callers.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/cl-extra.el
  lisp/emacs-lisp/cl-lib.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-11-03 15:24:00 +0000
+++ b/lisp/ChangeLog    2012-11-03 18:36:09 +0000
@@ -1,3 +1,10 @@
+2012-11-03  Glenn Morris  <address@hidden>
+
+       * emacs-lisp/cl-lib.el (cl--random-time):
+       Rename from cl-random-time.  (Bug#12773)
+       (cl--gensym-counter, cl--random-state): Update callers.
+       * emacs-lisp/cl-extra.el (cl-make-random-state): Update callers.
+
 2012-11-03  Chong Yidong  <address@hidden>
 
        * cus-start.el: Make cursor-type customizable (Bug#11633).

=== modified file 'lisp/emacs-lisp/cl-extra.el'
--- a/lisp/emacs-lisp/cl-extra.el       2012-10-30 08:03:22 +0000
+++ b/lisp/emacs-lisp/cl-extra.el       2012-11-03 18:36:09 +0000
@@ -440,7 +440,7 @@
   (cond ((null state) (cl-make-random-state cl--random-state))
        ((vectorp state) (copy-tree state t))
        ((integerp state) (vector 'cl-random-state-tag -1 30 state))
-       (t (cl-make-random-state (cl-random-time)))))
+       (t (cl-make-random-state (cl--random-time)))))
 
 ;;;###autoload
 (defun cl-random-state-p (object)

=== modified file 'lisp/emacs-lisp/cl-lib.el'
--- a/lisp/emacs-lisp/cl-lib.el 2012-10-11 20:36:23 +0000
+++ b/lisp/emacs-lisp/cl-lib.el 2012-11-03 18:36:09 +0000
@@ -264,12 +264,12 @@
 
 ;;; Symbols.
 
-(defun cl-random-time ()
+(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))
 
-(defvar cl--gensym-counter (* (logand (cl-random-time) 1023) 100))
+(defvar cl--gensym-counter (* (logand (cl--random-time) 1023) 100))
 
 
 ;;; Numbers.
@@ -296,7 +296,7 @@
   "Return t if INTEGER is even."
   (eq (logand integer 1) 0))
 
-(defvar cl--random-state (vector 'cl-random-state-tag -1 30 (cl-random-time)))
+(defvar cl--random-state (vector 'cl-random-state-tag -1 30 (cl--random-time)))
 
 (defconst cl-most-positive-float nil
   "The largest value that a Lisp float can hold.