From c1b180153f57777b64e27c45633d8a05e02dda5a Mon Sep 17 00:00:00 2001 From: =?utf8?q?Vincent=20Bela=C3=AFche?= Date: Sun, 28 Jul 2019 16:45:22 +0200 Subject: [PATCH] Make atomic cell update in data area. * lisp/ses.el (ses-write-cells): Set inhibit-quit to t during the data area write. --- lisp/ses.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/ses.el b/lisp/ses.el index 7fdacc77c9c..37d0d615033 100644 --- a/lisp/ses.el +++ b/lisp/ses.el @@ -1509,8 +1509,9 @@ Newlines in the data are escaped." ,printer ,(ses-cell-references cell)))) (ses-goto-data row col) - (delete-region (point) (line-end-position)) - (insert text))) + (let ((inhibit-quit t)) + (delete-region (point) (line-end-position)) + (insert text)))) (message " ")))) -- 2.39.2