From 48e7c397f3debc587e8605ddeb41a78d95572c16 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Tue, 18 Jan 2005 04:52:55 +0000 Subject: [PATCH] (calc-edit-mode): Inhibit read-only when erasing buffer. --- lisp/calc/calc-yank.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/calc/calc-yank.el b/lisp/calc/calc-yank.el index 53d5946e073..339dfd838a4 100644 --- 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)) -- 2.39.5