(calc-digit-dots): Inhibit read-only before erasing minibuffer.

diff --git a/lisp/calc/calc-incom.el b/lisp/calc/calc-incom.el
index b8bb7ab4f9af3e7cb5cf96d8c587fcc4d846de4d..7dc7f08b4bd594a13be17f88b4e475460bfb3ab4 100644 (file)
--- a/lisp/calc/calc-incom.el
+++ b/lisp/calc/calc-incom.el
@@ -183,7 +183,8 @@
        (if calc-prev-prev-char
            (calcDigit-nondigit)
          (setq calc-digit-value nil)
-         (erase-buffer)
+          (let ((inhibit-read-only t))
+            (erase-buffer))
          (exit-minibuffer)))
     ;; just ignore extra decimal point, anticipating ".."
     (delete-backward-char 1)))