`symbol-macrolet' is similar to `let', not `multiple-value-bind'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 89603e6664f545c996a19f250cdcd24e79a992f8..70e6c018f11bb370d051d31d1c7ecf6d960b8331 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,9 @@
        * calendar/diary-lib.el (fancy-diary-display-mode): Bind "q" to
        `quit-window' in the fancy diary buffer.
 
+       * emacs-lisp/cl-indent.el: `symbol-macrolet' is similar to `let',
+       not `multiple-value-bind'.
+
 2003-04-24  Lars Hansen  <larsh@math.ku.dk>
 
        * subr.el (assq-delete-all): Ignore non-cons elememts.

diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el
index 4edc3d0c6e58f67b8108ff31a88cd6222c4ba227..485a0522952f98acbb77750289fbf4e1209dd811 100644 (file)
--- a/lisp/emacs-lisp/cl-indent.el
+++ b/lisp/emacs-lisp/cl-indent.el
@@ -544,7 +544,7 @@ If nil, indent backquoted lists as data, i.e., like quoted lists."
            (progv       (4 4 &body))
            (return 0)
            (return-from (nil &body))
-           (symbol-macrolet . multiple-value-bind)
+           (symbol-macrolet . let)
            (tagbody     lisp-indent-tagbody)
            (throw 1)
            (unless 1)