[Emacs-diffs] /srv/bzr/emacs/emacs-24 r110777: Rename cl-loop-handler, cl-loop-for-handler back to their original names

[Glenn Morris]

------------------------------------------------------------
revno: 110777
fixes bug: http://debbugs.gnu.org/12788
committer: Glenn Morris <address@hidden>
branch nick: emacs-24
timestamp: Sat 2012-11-03 11:32:09 -0700
message:
  Rename cl-loop-handler, cl-loop-for-handler back to their original names
  
  * lisp/emacs-lisp/cl-macs.el (cl-parse-loop-clause):
  Rename handler properties back from cl-- to cl-.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/cl-macs.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-11-03 18:03:39 +0000
+++ b/lisp/ChangeLog    2012-11-03 18:32:09 +0000
@@ -1,5 +1,8 @@
 2012-11-03  Glenn Morris  <address@hidden>
 
+       * emacs-lisp/cl-macs.el (cl-parse-loop-clause):
+       Rename handler properties back from cl-- to cl-.  (Bug#12788)
+
        * emacs-lisp/cl-macs.el (cl-do-all-symbols): Add doc string.
 
 2012-11-03  Eli Zaretskii  <address@hidden>

=== modified file 'lisp/emacs-lisp/cl-macs.el'
--- a/lisp/emacs-lisp/cl-macs.el        2012-11-03 18:03:39 +0000
+++ b/lisp/emacs-lisp/cl-macs.el        2012-11-03 18:32:09 +0000
@@ -1259,8 +1259,9 @@
                        loop-for-steps)))
 
               (t
+               ;; This is an advertised interface: (info "(cl)Other Clauses").
                (let ((handler (and (symbolp word)
-                                   (get word 'cl--loop-for-handler))))
+                                   (get word 'cl-loop-for-handler))))
                  (if handler
                      (funcall handler var)
                    (error "Expected a `for' preposition, found %s" word)))))
@@ -1407,7 +1408,8 @@
                    ,cl--loop-finish-flag nil) cl--loop-body))
 
      (t
-      (let ((handler (and (symbolp word) (get word 'cl--loop-handler))))
+      ;; This is an advertised interface: (info "(cl)Other Clauses").
+      (let ((handler (and (symbolp word) (get word 'cl-loop-handler))))
        (or handler (error "Expected a cl-loop keyword, found %s" word))
        (funcall handler))))
     (if (eq (car cl--loop-args) 'and)