emms.el: Simple playlists shouldn't be bothered by read-onliness.

darcs-hash:20060423201939-2189f-806d03d345e7c8194afada0d344a3cf8e51d6e5e.gz

1 files changed, 6 insertions, 3 deletions

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)