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

diff --git a/lisp/calc/calc-yank.el b/lisp/calc/calc-yank.el
index 53d5946e073cf3316e75c1c11f4b09f3972bb3b3..339dfd838a4e254866357dd4476062baee8d2a0d 100644 (file)
--- 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))