[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r110785: Rename cl-random-time to cl-
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r110785: Rename cl-random-time to cl--random-time |
Date: |
Sat, 03 Nov 2012 11:36:09 -0700 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r110785: Rename cl-random-time to cl--random-time,
Glenn Morris <=