aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/emms.el11
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/emms.el b/lisp/emms.el
index e65e544..c00fcd0 100644
--- a/lisp/emms.el
+++ b/lisp/emms.el
@@ -738,17 +738,18 @@ for that purpose.")
(list (let* ((buf-list (mapcar #'(lambda (buf)
(list (buffer-name buf)))
(emms-playlist-buffer-list)))
+ (sorted-buf-list (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)))))))))
+ (car sorted-buf-list))))
(emms-completing-read "Playlist buffer to make current: "
- buf-list nil t default))))
+ sorted-buf-list nil t default))))
(let ((buf (if buffer
(get-buffer buffer)
(current-buffer))))