[nongnu] elpa/hyperdrive 3d8a56619b 32/33: Fix: (hyperdrive-global-easy-menu) Call hyperdrive-purge in "Purge"

[ELPA Syncer]

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

    Fix: (hyperdrive-global-easy-menu) Call hyperdrive-purge in "Purge"
---
 hyperdrive.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index 44b8c65d62..bde587df76 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -877,7 +877,7 @@ The return value of this function is the retrieval buffer."
                                               `(lambda ()
                                                  (interactive)
                                                  (let 
((hyperdrive-current-entry ,entry))
-                                                   (call-interactively 
#'hyperdrive-set-petname)))
+                                                   (call-interactively 
#'hyperdrive-purge)))
                                               :help "Purge all local data 
about hyperdrive")))))
     ("Current"
      :active hyperdrive-current-entry