(calc-edit-mode): Inhibit read-only when erasing buffer.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/calc/calc-yank.el b/lisp/calc/calc-yank.el
index 53d5946e073..339dfd838a4 100644
--- a/lisp/calc/calc-yank.el
+++ b/lisp/calc/calc-yank.el
@@ -460,7 +460,8 @@ To cancel the edit, simply kill the *Calc Edit* buffer."
     (setq calc-restore-trail (get-buffer-window (calc-trail-buffer)))
     (make-local-variable 'calc-allow-ret)
     (setq calc-allow-ret allow-ret)
-    (erase-buffer)
+    (let ((inhibit-read-only t))
+      (erase-buffer))
     (add-hook 'kill-buffer-hook (lambda () 
                                   (let ((calc-edit-handler nil))
                                     (calc-edit-finish t))