From b89c5b7158f02a7ee40f11ced4d81e2317bff7f4 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Mon, 25 Oct 2004 13:57:20 +0000 Subject: [PATCH] (calc-digit-dots): Inhibit read-only before erasing minibuffer. --- lisp/calc/calc-incom.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/calc/calc-incom.el b/lisp/calc/calc-incom.el index b8bb7ab4f9a..7dc7f08b4bd 100644 --- 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))) -- 2.39.5