make temporary rtf-buffers writable for converting with (erase-buffer)

git-svn-id: https://supercollider.svn.sourceforge.net/svnroot/supercollider/trunk@9366 a380766d-ff14-0410-b294-a243070f3f08
This commit is contained in:
andersvi 2009-08-26 11:45:15 +00:00
parent bda2562b10
commit 64a225a654

View file

@ -401,6 +401,7 @@
(unwind-protect (unwind-protect
(progn (progn
(sclang-convert-rtf-buffer tmp-buffer) (sclang-convert-rtf-buffer tmp-buffer)
(toggle-read-only 0)
(erase-buffer) (erase-buffer)
(insert-buffer-substring tmp-buffer)) (insert-buffer-substring tmp-buffer))
(and (buffer-modified-p) (not modified-p) (set-buffer-modified-p nil)) (and (buffer-modified-p) (not modified-p) (set-buffer-modified-p nil))