branch: externals/vc-jj
commit 30ac2abdbb54f1b8aca286276d7a25953f3597fc
Author: Kristoffer Balintona <[email protected]>
Commit: Kristoffer Balintona <[email protected]>
refactor: Use `vc-jj--process-lines' in `vc-jj-registered'
---
vc-jj.el | 11 ++++-------
1 file changed, 4 insertions(+), 7 deletions(-)
diff --git a/vc-jj.el b/vc-jj.el
index 1e273aceb5..59c3d30725 100644
--- a/vc-jj.el
+++ b/vc-jj.el
@@ -197,13 +197,10 @@ On failure, return nil. Upon success, return DIRECTORY."
;;;###autoload (load "vc-jj" nil t)
;;;###autoload (vc-jj-registered file))))
(defun vc-jj-registered (file)
- "Check whether FILE is registered with jj."
- (and-let* ((vc-jj-program (executable-find vc-jj-program))
- (default-directory (vc-jj-root file)))
- (with-temp-buffer
- (and (= 0 (call-process vc-jj-program nil (list t nil) nil
- "file" "list" "--" (vc-jj--filename-to-fileset
file)))
- (/= (point-min) (point-max))))))
+ "Check whether FILE is registered with jj.
+Return non-nil when FILE is file tracked by JJ and nil when not."
+ (when-let ((default-directory (vc-jj-root file)))
+ (vc-jj--process-lines "file" "list" "--" (vc-jj--filename-to-fileset
file))))
(defun vc-jj-state (file)
"JJ implementation of `vc-state' for FILE.
