From 343599d4750a34142fc6e230f845a24933220d3e Mon Sep 17 00:00:00 2001
From: Michael Olson <mwolson@gnu.org>
Date: Sun, 19 Nov 2006 05:34:00 +0000
Subject: Default to current buffer when setting the current EMMS playlist
 buffer.

darcs-hash:20061119053410-1bfb2-9cb15edee05a30c8a3b85865a0cfbd2f5f7302be.gz
---
 emms.el | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/emms.el b/emms.el
index d556522..f7d5bc1 100644
--- a/emms.el
+++ b/emms.el
@@ -643,11 +643,17 @@ for that purpose.")
    (list (let* ((buf-list (mapcar #'(lambda (buf)
                                       (list (buffer-name buf)))
                                   (emms-playlist-buffer-list)))
-                (shortest (car (sort buf-list #'(lambda (lbuf rbuf)
-                                                  (< (length (car lbuf))
-                                                     (length (car rbuf))))))))
+                (default (or (and emms-playlist-buffer-p
+                                  ;; default to current buffer
+                                  (buffer-name))
+                             ;; pick shortest buffer name, since it is
+                             ;; likely to be a shared prefix
+                             (car (sort buf-list
+                                        #'(lambda (lbuf rbuf)
+                                            (< (length (car lbuf))
+                                               (length (car rbuf)))))))))
            (completing-read "Playlist buffer to make current: "
-                            buf-list nil t shortest))))
+                            buf-list nil t default))))
   (let ((buf (if buffer
                  (get-buffer buffer)
                (current-buffer))))
-- 
cgit v1.2.3