browser: another read-only bug

darcs-hash:20060623171252-4e3e3-2270fbde08d8e29914b9ee2614bcf70d2c4bcf5a.gz

1 files changed, 6 insertions, 6 deletions

diff --git a/emms-browser.el b/emms-browser.el
index 01dd7f8..f4c5d5a 100644
--- a/emms-browser.el
+++ b/emms-browser.el
@@ -1043,7 +1043,6 @@ Returns the playlist window."
 ;; Searching
 ;; --------------------------------------------------
 
-
 (defun emms-browser-filter-cache (search-list)
   "Return a list of tracks that match SEARCH-LIST.
 SEARCH-LIST is a list of cons pairs, in the form:
@@ -1078,7 +1077,8 @@ included."
    (get-buffer-create "*emms-browser-search*"))
   (emms-browser-mode t)
   (use-local-map emms-browser-search-mode-map)
-  (delete-region (point-min) (point-max)))
+  (emms-with-inhibit-read-only-t
+   (delete-region (point-min) (point-max))))
 
 (defun emms-browser-search (fields)
   "Search for STR using FIELDS."
@@ -1095,10 +1095,10 @@ included."
 (defun emms-browser-render-search (tracks)
   (let ((entries
          (emms-browser-make-sorted-alist 'info-artist tracks)))
-  (dolist (entry entries)
-    (emms-browser-insert-top-level-entry (car entry)
-                                         (cdr entry)
-                                         'info-artist))))
+    (dolist (entry entries)
+      (emms-browser-insert-top-level-entry (car entry)
+                                           (cdr entry)
+                                           'info-artist))))
 
 ;; hmm - should we be doing this?
 (defun emms-browser-kill-search ()