Skip to content

Commit 845c492

Browse files
authored
Merge pull request #262 from spwhitton/vc-run-delayed-success
diff-hl--resolve: Use vc-run-delayed-success on Emacs >=31
2 parents 685ea2d + aea5557 commit 845c492

1 file changed

Lines changed: 7 additions & 3 deletions

File tree

diff-hl.el

Lines changed: 7 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -740,9 +740,13 @@ Return a list of line overlays used."
740740
(defun diff-hl--resolve (value-or-buffer cb)
741741
(if (listp value-or-buffer)
742742
(funcall cb value-or-buffer)
743-
(diff-hl--when-done value-or-buffer
744-
#'diff-hl-changes-from-buffer
745-
cb)))
743+
(static-if (>= emacs-major-version 31)
744+
(with-current-buffer value-or-buffer
745+
(vc-run-delayed-success 1
746+
(funcall cb (diff-hl-changes-from-buffer (current-buffer)))))
747+
(diff-hl--when-done value-or-buffer
748+
#'diff-hl-changes-from-buffer
749+
cb))))
746750

747751
(defun diff-hl--when-done (buffer get-value callback &optional proc)
748752
(let ((proc (or proc (get-buffer-process buffer))))

0 commit comments

Comments
 (0)