From: George Kuzler <gkuzler@gmail.com>
Date: Thu, 23 Nov 2023 00:45:55 +0000 (-0500)
Subject: Fix "Text is read-only" on backspacing initial Calc input
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f7dc0202127a73f83de52b1999a7fe05dd64fff6;p=emacs.git

Fix "Text is read-only" on backspacing initial Calc input

Immediately after `calc-mode' opens the minibuffer for input
(because you typed a digit, "e", etc), pressing backspace
should clear the minibuffer and return you to the *Calculator*
buffer.  Instead, it leaves the minibuffer as-is and prints the
message "Text is read-only"; this is because the function used,
`erase-buffer', tries to erase the read-only minibuffer prompt.
Using `delete-minibuffer-contents' fixes this, since it doesn't
attempt to delete the prompt.
* lisp/calc/calc.el (calcDigit-backspace): Use
`delete-minibuffer-contents' instead of `erase-buffer'.  (Bug#67395)

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index f129552c9a4..06ccb0f0cfa 100644
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -2477,7 +2477,7 @@ the United States."
 (defun calcDigit-backspace ()
   (interactive)
   (cond ((eq last-command 'calcDigit-start)
-	 (erase-buffer))
+	 (delete-minibuffer-contents))
 	(t (backward-delete-char 1)))
   (if (= (calc-minibuffer-size) 0)
       (progn