diff options
| author | Glenn Morris <rgm@gnu.org> | 2012-11-03 11:32:09 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2012-11-03 11:32:09 -0700 |
| commit | 491384001301d37b038f3ee074b13f658d094966 (patch) | |
| tree | ee270b5c2299fc5678c3a01d530d3f0bd99e2e5a /lisp/emacs-lisp/cl-macs.el | |
| parent | 3a4d19175aaf8ba6d43dac0bb2be703def774bd8 (diff) | |
| download | emacs-491384001301d37b038f3ee074b13f658d094966.tar.gz emacs-491384001301d37b038f3ee074b13f658d094966.tar.bz2 emacs-491384001301d37b038f3ee074b13f658d094966.zip | |
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
Diffstat (limited to 'lisp/emacs-lisp/cl-macs.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 6 |
1 files changed, 4 insertions, 2 deletions
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) |