[Emacs-diffs] /srv/bzr/emacs/emacs-24 r110878: lisp/emacs-lisp/cl-macs.el (cl-loop, cl-do, cl-do*): Doc fixes.

[Juanma Barranquero]

------------------------------------------------------------
revno: 110878
committer: Juanma Barranquero <address@hidden>
branch nick: emacs-24
timestamp: Thu 2012-11-15 22:01:25 +0100
message:
  lisp/emacs-lisp/cl-macs.el (cl-loop, cl-do, cl-do*): Doc fixes.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/cl-macs.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-11-15 18:35:05 +0000
+++ b/lisp/ChangeLog    2012-11-15 21:01:25 +0000
@@ -1,3 +1,7 @@
+2012-11-15  Juanma Barranquero  <address@hidden>
+
+       * emacs-lisp/cl-macs.el (cl-loop, cl-do, cl-do*): Doc fixes.
+
 2012-11-15  Stefan Monnier  <address@hidden>
 
        * emacs-lisp/cl-macs.el (cl-flet, cl-flet*): Fix docstring (bug#12895).

=== modified file 'lisp/emacs-lisp/cl-macs.el'
--- a/lisp/emacs-lisp/cl-macs.el        2012-11-15 18:35:05 +0000
+++ b/lisp/emacs-lisp/cl-macs.el        2012-11-15 21:01:25 +0000
@@ -756,7 +756,7 @@
 
 ;;;###autoload
 (defmacro cl-loop (&rest loop-args)
-  "The Common Lisp `cl-loop' macro.
+  "The Common Lisp `loop' macro.
 Valid clauses are:
   for VAR from/upfrom/downfrom NUM to/upto/downto/above/below NUM by NUM,
   for VAR in LIST by FUNC, for VAR on LIST by FUNC, for VAR = INIT then EXPR,
@@ -1501,7 +1501,7 @@
 
 ;;;###autoload
 (defmacro cl-do (steps endtest &rest body)
-  "The Common Lisp `cl-do' loop.
+  "The Common Lisp `do' loop.
 
 \(fn ((VAR INIT [STEP])...) (END-TEST [RESULT...]) BODY...)"
   (declare (indent 2)
@@ -1513,7 +1513,7 @@
 
 ;;;###autoload
 (defmacro cl-do* (steps endtest &rest body)
-  "The Common Lisp `cl-do*' loop.
+  "The Common Lisp `do*' loop.
 
 \(fn ((VAR INIT [STEP])...) (END-TEST [RESULT...]) BODY...)"
   (declare (indent 2) (debug cl-do))