From a051095baa3bb9f50be8b8232a46bce12c03600c Mon Sep 17 00:00:00 2001 From: forcer Date: Sun, 23 Apr 2006 20:19:00 +0000 Subject: emms.el: Simple playlists shouldn't be bothered by read-onliness. darcs-hash:20060423201939-2189f-806d03d345e7c8194afada0d344a3cf8e51d6e5e.gz --- emms.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'emms.el') diff --git a/emms.el b/emms.el index af422df..61119d4 100644 --- a/emms.el +++ b/emms.el @@ -855,14 +855,16 @@ ignore this." (emms-playlist-ensure-playlist-buffer) (when (not (emms-playlist-track-at (point))) (error "No track at point")) - (let ((region (emms-property-region (point) 'emms-track))) + (let ((inhibit-read-only t) + (region (emms-property-region (point) 'emms-track))) (delete-region (car region) (cdr region)))) (defun emms-playlist-simple-shuffle () "Shuffle the whole playlist buffer." (emms-playlist-ensure-playlist-buffer) - (let ((current nil)) + (let ((inhibit-read-only t) + (current nil)) (widen) (when emms-player-playing-p (setq current (emms-playlist-selected-track)) @@ -888,7 +890,8 @@ ignore this." "Sort the whole playlist buffer." (emms-playlist-ensure-playlist-buffer) (widen) - (let ((current (emms-playlist-selected-track)) + (let ((inhibit-read-only t) + (current (emms-playlist-selected-track)) (tracks (emms-playlist-tracks-in-region (point-min) (point-max)))) (delete-region (point-min) -- cgit v1.2.3