[Emacs-diffs] /srv/bzr/emacs/trunk r109124: * lisp/emacs-lisp/cl-macs.el (cl-progv): Use a properly prefixed var name.

[Stefan Monnier]

------------------------------------------------------------
revno: 109124
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2012-07-17 08:58:25 -0400
message:
  * lisp/emacs-lisp/cl-macs.el (cl-progv): Use a properly prefixed var name.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/cl-loaddefs.el
  lisp/emacs-lisp/cl-macs.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-07-17 12:30:48 +0000
+++ b/lisp/ChangeLog    2012-07-17 12:58:25 +0000
@@ -1,12 +1,13 @@
 2012-07-17  Stefan Monnier  <address@hidden>
 
+       * emacs-lisp/cl-macs.el (cl-progv): Use a properly prefixed var name.
+
        * emacs-lisp/elint.el (elint-find-args-in-code):
        Use help-function-arglist, so as to handle lexical byte-code.
 
        * progmodes/sh-script.el (sh-syntax-propertize-function): Fix last
        change (bug#11826).
 
-2012-07-17  Glenn Morris  <address@hidden>
 2012-07-17  Stefan Monnier  <address@hidden>
 
        * progmodes/cc-engine.el (c-forward-sws, c-backward-sws):

=== modified file 'lisp/emacs-lisp/cl-loaddefs.el'
--- a/lisp/emacs-lisp/cl-loaddefs.el    2012-07-12 10:20:34 +0000
+++ b/lisp/emacs-lisp/cl-loaddefs.el    2012-07-17 12:58:25 +0000
@@ -260,7 +260,7 @@
 ;;;;;;  cl-do cl-loop cl-return-from cl-return cl-block cl-etypecase
 ;;;;;;  cl-typecase cl-ecase cl-case cl-load-time-value cl-eval-when
 ;;;;;;  cl-destructuring-bind cl-function cl-defmacro cl-defun cl-gentemp
-;;;;;;  cl-gensym) "cl-macs" "cl-macs.el" "a175c7714223c21a617b0460e130f1d8")
+;;;;;;  cl-gensym) "cl-macs" "cl-macs.el" "6b06545d8d17e8b902435f08be6ac0c2")
 ;;; Generated autoloads from cl-macs.el
 
 (autoload 'cl-gensym "cl-macs" "\

=== modified file 'lisp/emacs-lisp/cl-macs.el'
--- a/lisp/emacs-lisp/cl-macs.el        2012-07-11 23:13:41 +0000
+++ b/lisp/emacs-lisp/cl-macs.el        2012-07-17 12:58:25 +0000
@@ -1547,7 +1547,7 @@
 BODY forms are executed and their result is returned.  This is much like
 a `let' form, except that the list of symbols can be computed at run-time."
   (declare (indent 2) (debug (form form body)))
-  (let ((bodyfun (make-symbol "body"))
+  (let ((bodyfun (make-symbol "cl--progv-body"))
         (binds (make-symbol "binds"))
         (syms (make-symbol "syms"))
         (vals (make-symbol "vals")))