[elpa] externals/disk-usage 00aa40a 10/48: Bind "S-<return>" to disk-usage-find-file-at-point

[Stefan Monnier]

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

    Bind "S-<return>" to disk-usage-find-file-at-point
---
 disk-usage.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/disk-usage.el b/disk-usage.el
index 525a129..0aec2a5 100644
--- a/disk-usage.el
+++ b/disk-usage.el
@@ -72,6 +72,7 @@
 (defvar disk-usage-mode-map
   (let ((map (make-sparse-keymap)))
     (set-keymap-parent map tabulated-list-mode-map)
+    (define-key map (kbd "S-<return>") #'disk-usage-find-file-at-point)
     (define-key map "d" #'disk-usage-dired-at-point)
     (define-key map "e" #'disk-usage-eshell-at-point)
     (define-key map "h" #'disk-usage-toggle-human-readable)
@@ -300,6 +301,10 @@ beings."
   (delete-file (disk-usage--path-at-point))
   (tabulated-list-delete-entry))
 
+(defun disk-usage-find-file-at-point ()
+  (interactive)
+  (find-file (disk-usage--path-at-point)))
+
 (defun disk-usage-dired-at-point ()
   (interactive)
   (dired (disk-usage--directory-at-point)))