# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1098712640 0
# Node ID 8dc3dd828d67be00aba7063d00ea625c435c2c37
# Parent  1624e4e8ab2a609bc6a83fc837efff69283105f6
(calc-digit-dots): Inhibit read-only before erasing minibuffer.

diff -r 1624e4e8ab2a -r 8dc3dd828d67 lisp/calc/calc-incom.el
--- a/lisp/calc/calc-incom.el	Mon Oct 25 13:22:17 2004 +0000
+++ b/lisp/calc/calc-incom.el	Mon Oct 25 13:57:20 2004 +0000
@@ -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)))