Default to current buffer when setting the current EMMS playlist buffer.

darcs-hash:20061119053410-1bfb2-9cb15edee05a30c8a3b85865a0cfbd2f5f7302be.gz

1 files 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))))