1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-28 19:42:02 +00:00

* lisp/vc/vc.el (vc-diff-patch-string): Fix arg in revert-buffer-function.

This commit is contained in:
Juri Linkov 2022-09-11 11:22:11 +03:00
parent 03969ddcac
commit 8a902013e4

View File

@ -1808,7 +1808,8 @@ in the output buffer."
(setq buffer-read-only t)
(diff-mode)
(setq-local diff-vc-backend (vc-responsible-backend default-directory))
(setq-local revert-buffer-function (lambda (_ _) (vc-diff-patch-string)))
(setq-local revert-buffer-function
(lambda (_ _) (vc-diff-patch-string patch-string)))
(setq-local vc-patch-string patch-string)
(pop-to-buffer (current-buffer))
(vc-run-delayed (vc-diff-finish (current-buffer) nil))))