branch: externals/mpdired
commit 1243df446ceff8bb25beabd40b1ba3ec1654d2ce
Author: Manuel Giraud <man...@ledu-giraud.fr>
Commit: Manuel Giraud <man...@ledu-giraud.fr>

    a DB update command
---
 mpdired.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/mpdired.el b/mpdired.el
index c2d16f92d8..963eb21b39 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -92,6 +92,7 @@
   "^"      #'mpdired-goto-parent
   "o"      #'mpdired-toggle-view
   "g"      #'mpdired-update
+  "G"      #'mpdired-db-update
   "<SPC>"  #'mpdired-pause-internal
   "N"      #'mpdired-next-internal
   "P"      #'mpdired-previous-internal
@@ -602,6 +603,13 @@ an optional communication buffer."
          mpdired--message "Toggle pause...")
     (process-send-string process "pause\n")))
 
+(defun mpdired-db-update ()
+  (interactive)
+  (mpdired--with-comm-buffer process nil
+    (setq mpdired--last-command 'stop
+         mpdired--message "DB Update...")
+    (process-send-string process "update\n")))
+
 (defun mpdired-stop ()
   (interactive)
   (mpdired--with-comm-buffer process nil

Reply via email to