diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2004-10-25 13:57:20 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2004-10-25 13:57:20 +0000 |
| commit | b89c5b7158f02a7ee40f11ced4d81e2317bff7f4 (patch) | |
| tree | 46191a3859cec4bde9e1b577b986cc81c0edab22 /lisp/calc/calc-incom.el | |
| parent | d7aea840359e05e76a38b9930980d9334c67ceb4 (diff) | |
| download | emacs-b89c5b7158f02a7ee40f11ced4d81e2317bff7f4.tar.gz | |
(calc-digit-dots): Inhibit read-only before erasing minibuffer.
Diffstat (limited to 'lisp/calc/calc-incom.el')
| -rw-r--r-- | lisp/calc/calc-incom.el | 3 |
1 files changed, 2 insertions, 1 deletions
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))) |