From: Mark Wooding <mdw@distorted.org.uk>
Date: Thu, 20 Jul 2017 00:21:50 +0000 (+0100)
Subject: el/dot-emacs.el: Bind some additional MPC keys.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain/56ba17bead4125024e7841a19beffa5c5bbe67db?ds=inline

el/dot-emacs.el: Bind some additional MPC keys.

Search (didn't know that was there), and jump-to, which I lost when I
replaced the keymap.
---

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 744b9c8..4c2af20 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -3900,11 +3900,13 @@      (define-key mpc-mode-map "\177" 'mdw-mpc-unselect-backwards)
      (define-key mpc-mode-map "\e\177" 'mdw-mpc-unselect-all)
      (define-key mpc-mode-map "n" 'mdw-mpc-next-line)
      (define-key mpc-mode-map "p" 'mdw-mpc-previous-line)
+     (define-key mpc-mode-map "/" 'mpc-songs-search)
      (setq mpc-songs-mode-map (make-sparse-keymap))
      (set-keymap-parent mpc-songs-mode-map mpc-mode-map)
      (define-key mpc-songs-mode-map "l" 'mpc-playlist)
      (define-key mpc-songs-mode-map "+" 'mpc-playlist-add)
-     (define-key mpc-songs-mode-map "-" 'mpc-playlist-delete)))
+     (define-key mpc-songs-mode-map "-" 'mpc-playlist-delete)
+     (define-key mpc-songs-mode-map "\r" 'mpc-songs-jump-to)))
 
 ;;;--------------------------------------------------------------------------
 ;;; Inferior Emacs Lisp.