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 7fdacc77c9ce0283f3ecab3370be182d3ad10b53..37d0d615033572f509acf1e67cb18b5702eead8e 100644 (file)
--- 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 " "))))