[elpa] externals/disk-usage 2d36a87 04/26: Fix disk-usage--path-at-point to return directory

[Pierre Neidhardt]

branch: externals/disk-usage
commit 2d36a87eca2bb2015a37298ca497f1fa995d70fc
Author: Pierre Neidhardt <address@hidden>
Commit: Pierre Neidhardt <address@hidden>

    Fix disk-usage--path-at-point to return directory
    
    It's now resilient to column change.
---
 disk-usage.el | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/disk-usage.el b/disk-usage.el
index 2822127..cc69541 100644
--- a/disk-usage.el
+++ b/disk-usage.el
@@ -402,11 +402,8 @@ Also see `disk-usage-by-types-mode'."
   ;; FIXME: The GNU convention is to use "path" only for lists of directories
   ;; as in `load-path' and $PATH and to use "file name" for what you here call
   ;; "path".  --Stef
-  (let* ((entry (tabulated-list-get-entry (point)))
-         (path (aref entry 1)))
-    (if (listp path)
-        (setq path (cl-first path))
-      path)))
+  (let ((file-info (tabulated-list-get-id (point))))
+    (disk-usage--file-info-name file-info)))
 
 (defun disk-usage--directory-at-point ()
   (let ((path (disk-usage--path-at-point)))