branch: externals/vc-jj
commit 47baadf4f71ded53f2fadeb509f30291224b1686
Author: Wojciech Siewierski <[email protected]>
Commit: Wojciech Siewierski <[email protected]>
Don't fail in vc-jj-registered
---
vc-jj.el | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/vc-jj.el b/vc-jj.el
index cd3dbc1d63..55b0cf63d5 100644
--- a/vc-jj.el
+++ b/vc-jj.el
@@ -53,10 +53,12 @@
;;;###autoload (vc-jj-registered file))))
(defun vc-jj-registered (file)
- (when-let ((root (vc-jj-root file)))
- (let ((relative (file-relative-name file root))
- (default-directory root))
- (vc-jj--file-tracked relative))))
+ (unless (not (file-exists-p default-directory))
+ (with-demoted-errors "Error: %S"
+ (when-let ((root (vc-jj-root file)))
+ (let ((relative (file-relative-name file root))
+ (default-directory root))
+ (vc-jj--file-tracked relative))))))
(defun vc-jj-state (file)
(when-let ((root (vc-jj-root file)))
