[nongnu] elpa/hyperdrive 87f37a1d72 2/3: Fix: (hyperdrive-menu) Don't offer to delete current directory

[ELPA Syncer]

branch: elpa/hyperdrive
commit 87f37a1d7211326e16520e694ac2206822fbe034
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Fix: (hyperdrive-menu) Don't offer to delete current directory
---
 hyperdrive-menu.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index a4a8ce1db6..2b80674b7a 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -153,7 +153,9 @@
      ("w" "Copy URL" hyperdrive-copy-url
       :if (lambda ()
             (not (eq major-mode 'hyperdrive-dir-mode))))
-     ("D" "Delete" hyperdrive-delete)
+     ("D" "Delete" hyperdrive-delete
+      :if (lambda ()
+            (not (eq major-mode 'hyperdrive-dir-mode))))
      ("d" "Download" hyperdrive-download
       :if (lambda ()
             (not (eq major-mode 'hyperdrive-dir-mode))))]