From fa77f2c443f817f06bc7f0840b8c72de499bd10e Mon Sep 17 00:00:00 2001 From: forcer Date: Tue, 20 Sep 2005 18:57:00 +0000 Subject: Ignore read-onliness when updating a track in a playlist buffer darcs-hash:20050920185705-2189f-fdbbe3e722c0ea46c44d0e7a3c173618ff00ca46.gz --- emms-playlist-mode.el | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) (limited to 'emms-playlist-mode.el') diff --git a/emms-playlist-mode.el b/emms-playlist-mode.el index f7da6a7..ce44b36 100644 --- a/emms-playlist-mode.el +++ b/emms-playlist-mode.el @@ -298,14 +298,16 @@ of the saved playlist inside." (defun emms-playlist-mode-update-track-function () "Update the track display at point." (emms-playlist-ensure-playlist-buffer) - (let ((track-region (emms-property-region (point-at-bol) - 'emms-track)) - (track (get-text-property (point-at-bol) - 'emms-track))) - (delete-region (car track-region) - ;; 1+ For the \n - (1+ (cdr track-region))) - (emms-playlist-mode-insert-track track))) + (let ((inhibit-read-only t)) + (let ((track-region (emms-property-region (point-at-bol) + 'emms-track)) + (track (get-text-property (point-at-bol) + 'emms-track))) + (save-excursion + (delete-region (car track-region) + ;; 1+ For the \n + (1+ (cdr track-region))) + (emms-playlist-mode-insert-track track))))) ;;; -------------------------------------------------------- ;;; Entry -- cgit v1.2.3