destructuring-bind => cl-destructuring-bind

This commit is contained in:
Henrik Lissner
2017-06-25 02:04:50 +02:00
parent c493ad80f4
commit 822c78554f
9 changed files with 10 additions and 10 deletions

View File

@ -20,7 +20,7 @@
(defun +evil/reselect-paste ()
"Go back into visual mode and reselect the last pasted region."
(interactive)
(destructuring-bind (_ _ _ beg end &optional _)
(cl-destructuring-bind (_ _ _ beg end &optional _)
evil-last-paste
(evil-visual-make-selection
(save-excursion (goto-char beg) (point-marker))

View File

@ -32,7 +32,7 @@
(evil-initialize-state 'insert))))
(defun +file-templates-add (args)
(destructuring-bind (regexp trigger mode &optional project-only-p) args
(cl-destructuring-bind (regexp trigger mode &optional project-only-p) args
(define-auto-insert
regexp
(vector `(lambda () (+file-templates--expand ,trigger ',mode ,project-only-p))))))

View File

@ -56,7 +56,7 @@ Tries xref and falls back to `dumb-jump', then rg/ag, then
((and (featurep 'evil)
evil-mode
(destructuring-bind (beg end)
(cl-destructuring-bind (beg end)
(bounds-of-thing-at-point 'symbol)
(evil-goto-definition)
(let ((pt (point)))

View File

@ -16,7 +16,7 @@
repository root."
(interactive)
(require 'git-link)
(destructuring-bind (beg end)
(cl-destructuring-bind (beg end)
(if buffer-file-name (git-link--get-region))
(let ((git-link-open-in-browser t))
(git-link (git-link--select-remote) beg end))))