From 56ba17bead4125024e7841a19beffa5c5bbe67db Mon Sep 17 00:00:00 2001 Message-Id: <56ba17bead4125024e7841a19beffa5c5bbe67db.1717733927.git.mdw@distorted.org.uk> From: Mark Wooding Date: Thu, 20 Jul 2017 01:21:50 +0100 Subject: [PATCH] el/dot-emacs.el: Bind some additional MPC keys. Organization: Straylight/Edgeware From: Mark Wooding Search (didn't know that was there), and jump-to, which I lost when I replaced the keymap. --- el/dot-emacs.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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. -- [mdw]