diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emms.el | 11 |
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)))) |