From 491384001301d37b038f3ee074b13f658d094966 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 3 Nov 2012 11:32:09 -0700 Subject: [PATCH] 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-. Fixes: debbugs:12788 --- lisp/ChangeLog | 3 +++ lisp/emacs-lisp/cl-macs.el | 6 ++++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 466e13b276c..5be111818dd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2012-11-03 Glenn Morris + * 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 diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index e7a66ad1b1a..8d240774edb 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -1259,8 +1259,9 @@ Valid clauses are: 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 @@ Valid clauses are: ,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) -- 2.39.5