diff options
author | forcer <forcer> | 2005-09-18 19:44:00 +0000 |
---|---|---|
committer | forcer <mwolson@gnu.org> | 2005-09-18 19:44:00 +0000 |
commit | 2030e9b1274a92066428ef150f847d9fc24520a5 (patch) | |
tree | 31cfadf74bc70a8640ca65bad1fa504d828c0278 /emms.el | |
parent | 6a2419934fd491a24ab91c14feadbbe1522fe690 (diff) |
Make `with-current-emms-playlist' disable read-onlyness.
darcs-hash:20050918194432-2189f-a9a8d3e0d34ff56250308a1d812d4d9e110218de.gz
Diffstat (limited to 'emms.el')
-rw-r--r-- | emms.el | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -419,13 +419,15 @@ Otherwise, return the type and the name with a colon in between." (error "Not an EMMS playlist buffer"))) (defmacro with-current-emms-playlist (&rest body) - "Run BODY with the current buffer being the current playlist buffer." + "Run BODY with the current buffer being the current playlist buffer. +This also disables any read-onliness of the current buffer." `(progn (when (or (not emms-playlist-buffer) (not (buffer-live-p emms-playlist-buffer))) (emms-playlist-current-clear)) (with-current-buffer emms-playlist-buffer - ,@body))) + (let ((inhibit-read-only t)) + ,@body)))) (put 'with-current-emms-playlist 'lisp-indent-function 0) (defun emms-playlist-set-playlist-buffer (&optional buffer) |