[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/disk-usage 2d36a87 04/26: Fix disk-usage--path-at-point
From: |
Pierre Neidhardt |
Subject: |
[elpa] externals/disk-usage 2d36a87 04/26: Fix disk-usage--path-at-point to return directory |
Date: |
Tue, 26 Feb 2019 03:06:36 -0500 (EST) |
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)))
- [elpa] externals/disk-usage 54d4aee 25/26: Propertize size, percent and children columns, (continued)
- [elpa] externals/disk-usage 54d4aee 25/26: Propertize size, percent and children columns, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage 8bf5d5c 08/26: Break some long lines, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage 0fff6a8 12/26: Fix 'nil' children issue on inaccessible directories, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage a53be8d 26/26: Version 1.2.0, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage 6a01954 05/26: Rename disk-usage--path-at-point -> disk-usage--file-name-at-point, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage 364c62b 20/26: Bind "a" and "A" to filter commands in disk-usage-by-types, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage 6a214bc 09/26: Add many docstrings, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage 488ddc8 14/26: Add support for filters, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage 7708379 07/26: Use process-file instead of call-process, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage 7b14829 22/26: Normalize filter names, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage 2d36a87 04/26: Fix disk-usage--path-at-point to return directory,
Pierre Neidhardt <=