destructuring-bind => cl-destructuring-bind

This commit is contained in:
Henrik Lissner 2018-06-30 02:53:35 +02:00
parent 15f2e21468
commit 66e62e8b6e
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -168,7 +168,7 @@ Uses `+workspaces-main' to determine the name of the main workspace."
(list tag (buffer-name buf) vars (list tag (buffer-name buf) vars
(buffer-name (buffer-base-buffer)))) (buffer-name (buffer-base-buffer))))
:load-function (lambda (savelist &rest _rest) :load-function (lambda (savelist &rest _rest)
(destructuring-bind (buf-name _vars base-buf-name &rest _) (cl-destructuring-bind (buf-name _vars base-buf-name &rest _)
(cdr savelist) (cdr savelist)
(push (cons buf-name base-buf-name) (push (cons buf-name base-buf-name)
+workspaces--indirect-buffers-to-restore) +workspaces--indirect-buffers-to-restore)