diff options
| author | Sam Steingold | 2003-04-25 02:00:17 +0000 |
|---|---|---|
| committer | Sam Steingold | 2003-04-25 02:00:17 +0000 |
| commit | 10b97bf735aa1144afe2efe8e95a000dc2775076 (patch) | |
| tree | 43e996bad65a9a69326c4a0ef49211aca58279d2 | |
| parent | 4e80f517a9d9f07f7bed91bf58d3d7de464a224a (diff) | |
| download | emacs-10b97bf735aa1144afe2efe8e95a000dc2775076.tar.gz emacs-10b97bf735aa1144afe2efe8e95a000dc2775076.zip | |
`symbol-macrolet' is similar to `let', not `multiple-value-bind'.
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/emacs-lisp/cl-indent.el | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 89603e6664f..70e6c018f11 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -3,6 +3,9 @@ | |||
| 3 | * calendar/diary-lib.el (fancy-diary-display-mode): Bind "q" to | 3 | * calendar/diary-lib.el (fancy-diary-display-mode): Bind "q" to |
| 4 | `quit-window' in the fancy diary buffer. | 4 | `quit-window' in the fancy diary buffer. |
| 5 | 5 | ||
| 6 | * emacs-lisp/cl-indent.el: `symbol-macrolet' is similar to `let', | ||
| 7 | not `multiple-value-bind'. | ||
| 8 | |||
| 6 | 2003-04-24 Lars Hansen <larsh@math.ku.dk> | 9 | 2003-04-24 Lars Hansen <larsh@math.ku.dk> |
| 7 | 10 | ||
| 8 | * subr.el (assq-delete-all): Ignore non-cons elememts. | 11 | * 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 4edc3d0c6e5..485a0522952 100644 --- 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." | |||
| 544 | (progv (4 4 &body)) | 544 | (progv (4 4 &body)) |
| 545 | (return 0) | 545 | (return 0) |
| 546 | (return-from (nil &body)) | 546 | (return-from (nil &body)) |
| 547 | (symbol-macrolet . multiple-value-bind) | 547 | (symbol-macrolet . let) |
| 548 | (tagbody lisp-indent-tagbody) | 548 | (tagbody lisp-indent-tagbody) |
| 549 | (throw 1) | 549 | (throw 1) |
| 550 | (unless 1) | 550 | (unless 1) |