From 6dc53f98e6c2acce8852ce71f58164bb0603733e Mon Sep 17 00:00:00 2001 From: Damien Elmes Date: Fri, 23 Jun 2006 17:12:00 +0000 Subject: browser: another read-only bug darcs-hash:20060623171252-4e3e3-2270fbde08d8e29914b9ee2614bcf70d2c4bcf5a.gz --- emms-browser.el | 12 ++++++------ 1 file 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 () -- cgit v1.2.3