borg--drone-states: Return only last part of path again

This broke in 11aadf3 when `borg-updated-drones' was replaced with `borg--drone-states'.
emacscollective · Dec 15, 2018 · 99d1667 · 99d1667
1 parent 73990d3
commit 99d1667
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/borg.el b/borg.el
@@ -775,7 +775,8 @@ Formatting is according to the commit message conventions."
     (mapcar
      (lambda (line)
        (pcase-let* ((`(,state ,module) (split-string line "\t")))
-         (list module state
+         (list (file-name-nondirectory module)
+               state
                (and (member state '("A" "M"))
                     (let ((default-directory (expand-file-name module)))
                       (if (file-directory-p default-directory)