[elpa] externals/disk-usage 19103ba 42/48: Add unmark-at-point

[Stefan Monnier]

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

    Add unmark-at-point
---
 disk-usage.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/disk-usage.el b/disk-usage.el
index f0d1ac5..8397cfb 100644
--- a/disk-usage.el
+++ b/disk-usage.el
@@ -100,6 +100,7 @@
     (define-key map "f" #'disk-usage-toggle-full-path)
     (define-key map "R" #'disk-usage-toggle-recursive)
     (define-key map "m" #'disk-usage-mark-at-point)
+    (define-key map "u" #'disk-usage-unmark-at-point)
     (define-key map "x" #'disk-usage-delete-marked-files)
     map)
   "Local keymap for `disk-usage-mode' buffers.")
@@ -394,6 +395,12 @@ Also see `disk-usage-by-types-mode'."
     (setf (disk-usage--file-info-marked file-info) t))
   (tabulated-list-put-tag "*" 'advance))
 
+(defun disk-usage-unmark-at-point ()
+  (interactive)
+  (let ((file-info (tabulated-list-get-id (point))))
+    (setf (disk-usage--file-info-marked file-info) nil))
+  (tabulated-list-put-tag "" 'advance))
+
 (defun disk-usage-delete-marked-files (&optional permanently)
   "Delete marked files.
 By default, files are moved to trash unless PERMANENTLY is