diff options
| author | Lars Ingebrigtsen | 2019-06-15 17:09:08 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-06-15 17:09:08 +0200 |
| commit | 3f4c2f813adeffc6814ee01116704ccf420c3bd9 (patch) | |
| tree | fff9c60c7628fc45707c1f735206ff63a21a7ae3 | |
| parent | 4d2b3bcd038ffea4a2951cdc2735a904fc875e3a (diff) | |
| download | emacs-3f4c2f813adeffc6814ee01116704ccf420c3bd9.tar.gz emacs-3f4c2f813adeffc6814ee01116704ccf420c3bd9.zip | |
Make obsolete function zip-lists work again
* lisp/obsolete/cl-compat.el (zip-lists): Use cl-mapcan instead of
mapcan; mapcan now takes only two parameters.
| -rw-r--r-- | lisp/obsolete/cl-compat.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/obsolete/cl-compat.el b/lisp/obsolete/cl-compat.el index b2735826ce1..7882705fe9f 100644 --- a/lisp/obsolete/cl-compat.el +++ b/lisp/obsolete/cl-compat.el | |||
| @@ -142,7 +142,7 @@ | |||
| 142 | (Values (mapcar* 'list newsyms oldforms) newsyms))) | 142 | (Values (mapcar* 'list newsyms oldforms) newsyms))) |
| 143 | 143 | ||
| 144 | (defun zip-lists (evens odds) | 144 | (defun zip-lists (evens odds) |
| 145 | (mapcan 'list evens odds)) | 145 | (cl-mapcan 'list evens odds)) |
| 146 | 146 | ||
| 147 | (defun unzip-lists (list) | 147 | (defun unzip-lists (list) |
| 148 | (let ((e nil) (o nil)) | 148 | (let ((e nil) (o nil)) |