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:
parent
bda2562b10
commit
64a225a654
1 changed files with 1 additions and 0 deletions
|
@ -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))
|
||||||
|
|
Loading…
Reference in a new issue