From d651b5f38734c8972aa115ccb05b55bbd767d319 Mon Sep 17 00:00:00 2001 From: Ilya Ostapyshyn Date: Sun, 17 May 2020 13:52:41 +0300 Subject: [PATCH] * lisp/vc/vc-hooks.el: Set default-directory to be inside repository --- lisp/vc/vc-hooks.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/lisp/vc/vc-hooks.el b/lisp/vc/vc-hooks.el index 2ca9d3e620..ebe79311fe 100644 --- a/lisp/vc/vc-hooks.el +++ b/lisp/vc/vc-hooks.el @@ -497,13 +497,14 @@ status of this file. Otherwise, the value returned is one of: (defun vc-working-revision (file &optional backend) "Return the repository version from which FILE was checked out. If FILE is not registered, this function always returns nil." - (or (vc-file-getprop file 'vc-working-revision) - (progn - (setq backend (or backend (vc-backend file))) - (when backend - (vc-file-setprop file 'vc-working-revision - (vc-call-backend - backend 'working-revision file)))))) + (let ((default-directory (file-name-directory file))) + (or (vc-file-getprop file 'vc-working-revision) + (progn + (setq backend (or backend (vc-backend file))) + (when backend + (vc-file-setprop file 'vc-working-revision + (vc-call-backend + backend 'working-revision file))))))) ;; Backward compatibility. (define-obsolete-function-alias -- 2.26.2