destructuring-bind => cl-destructuring-bind

This commit is contained in:
Henrik Lissner 2017-06-25 02:04:50 +02:00
parent c493ad80f4
commit 822c78554f
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
9 changed files with 10 additions and 10 deletions

View file

@ -15,7 +15,7 @@
with project-root = (doom-project-root)
for buf in buffer-list
collect
(destructuring-bind (type mode path)
(cl-destructuring-bind (type mode path)
(with-current-buffer buf
(list (concat
(let ((buffer-name (buffer-name buf)))
@ -121,7 +121,7 @@ limit to buffers in the current workspace."
"Jump to the file and line of the current task."
(let ((location (cadr (split-string x " | ")))
(type (car (split-string x " "))))
(destructuring-bind (file line) (split-string location ":")
(cl-destructuring-bind (file line) (split-string location ":")
(with-ivy-window
(find-file (expand-file-name file (doom-project-root)))
(goto-char (point-min))