From 62d77cbf6168261d67e037473f5ca600359dca93 Mon Sep 17 00:00:00 2001 From: Tassilo Horn Date: Thu, 2 Aug 2007 20:07:00 +0000 Subject: make-S-prefix-key-for-sorting-functions.dpatch darcs-hash:20070802200758-c06f4-060512f35899d2224b3febca6b3c03a792efce84.gz --- emms-playlist-sort.el | 20 +++++++++----------- 1 file changed, 9 insertions(+), 11 deletions(-) diff --git a/emms-playlist-sort.el b/emms-playlist-sort.el index cddbd26..00398da 100644 --- a/emms-playlist-sort.el +++ b/emms-playlist-sort.el @@ -84,17 +84,15 @@ increasingly." (eval-after-load 'emms-playlist-mode '(progn - ;; Steal this key from emms-playlist-mode.. - (define-key emms-playlist-mode-map (kbd "s") nil) - (define-key emms-playlist-mode-map (kbd "s n") 'emms-playlist-sort-by-name) - (define-key emms-playlist-mode-map (kbd "s a") 'emms-playlist-sort-by-info-artist) - (define-key emms-playlist-mode-map (kbd "s t") 'emms-playlist-sort-by-info-title) - (define-key emms-playlist-mode-map (kbd "s b") 'emms-playlist-sort-by-info-album) - (define-key emms-playlist-mode-map (kbd "s y") 'emms-playlist-sort-by-info-year) - (define-key emms-playlist-mode-map (kbd "s o") 'emms-playlist-sort-by-info-note) - (define-key emms-playlist-mode-map (kbd "s N") 'emms-playlist-sort-by-natural-order) - (define-key emms-playlist-mode-map (kbd "s l") 'emms-playlist-sort-by-list) - (define-key emms-playlist-mode-map (kbd "s s") 'emms-playlist-sort-by-score))) + (define-key emms-playlist-mode-map (kbd "S n") 'emms-playlist-sort-by-name) + (define-key emms-playlist-mode-map (kbd "S a") 'emms-playlist-sort-by-info-artist) + (define-key emms-playlist-mode-map (kbd "S t") 'emms-playlist-sort-by-info-title) + (define-key emms-playlist-mode-map (kbd "S b") 'emms-playlist-sort-by-info-album) + (define-key emms-playlist-mode-map (kbd "S y") 'emms-playlist-sort-by-info-year) + (define-key emms-playlist-mode-map (kbd "S o") 'emms-playlist-sort-by-info-note) + (define-key emms-playlist-mode-map (kbd "S N") 'emms-playlist-sort-by-natural-order) + (define-key emms-playlist-mode-map (kbd "S l") 'emms-playlist-sort-by-list) + (define-key emms-playlist-mode-map (kbd "S s") 'emms-playlist-sort-by-score))) ;;; Low Level Functions -- cgit v1.2.3