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 744b9c846a8991fc94ee846b1b18f596e7d43bcb..4c2af202959aa781fe07686404693ea67b5ab7e9 100644 (file)
--- 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 "\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)
      (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.
 
 ;;;--------------------------------------------------------------------------
 ;;; Inferior Emacs Lisp.