; * lisp/vc/vc.el (vc-responsible-backend): Explain last change.

diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index 05109256bd13d0c7cfc63186dc175e3b20d6a7fe..4688137d923d2c70d21b102b9a613442353479c0 100644 (file)
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -1014,6 +1014,10 @@ responsible for the given file."
                           (lambda (backend)
                             (when-let ((dir (vc-call-backend
                                              backend 'responsible-p file)))
+                              ;; We run DIR through `expand-file-name'
+                              ;; so that abbreviated directories, such
+                              ;; as "~/", wouldn't look "less specific"
+                              ;; due to their artificially shorter length.
                               (cons backend (expand-file-name dir))))
                           vc-handled-backends))))
         ;; Just a single response (or none); use it.