* lisp/emacs-lisp/cl-macs.el (cl-remf): Fix error in recent

conversion to backquotes.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e452e96fceb..c88f9341964 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-06-12  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * emacs-lisp/cl-macs.el (cl-remf): Fix error in recent
+        conversion to backquotes.
+
 2012-06-12  Chong Yidong  <cyd@gnu.org>
 
         * emacs-lisp/edebug.el (edebug-inhibit-emacs-lisp-mode-bindings):
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 0b49563adff..bc90898ad00 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -2325,7 +2325,7 @@ The form returns true if TAG was found and removed, nil otherwise."
        (if (eq ,ttag (car ,tval))
            (progn ,(cl-setf-do-store (nth 1 method) `(cddr ,tval))
                   t)
-         `(cl--do-remf ,tval ,ttag)))))
+         (cl--do-remf ,tval ,ttag)))))
 
 ;;;###autoload
 (defmacro cl-shiftf (place &rest args)