From: Vincent Belaïche <vincentb1@users.sourceforge.net>
Date: Sun, 28 Jul 2019 14:45:22 +0000 (+0200)
Subject: Make atomic cell update in data area.
X-Git-Tag: emacs-27.0.90~1817^2~51
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c1b180153f57777b64e27c45633d8a05e02dda5a;p=emacs.git

Make atomic cell update in data area.

* lisp/ses.el (ses-write-cells): Set inhibit-quit to t during the data
  area write.
---

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 " "))))