diff options
| author | Vincent Belaïche <vincentb1@users.sourceforge.net> | 2019-07-28 16:45:22 +0200 |
|---|---|---|
| committer | Vincent Belaïche <vincentb1@users.sourceforge.net> | 2019-07-28 16:45:22 +0200 |
| commit | c1b180153f57777b64e27c45633d8a05e02dda5a (patch) | |
| tree | e6dcb3e895d105cdc239ec686d788b1ffa22d755 | |
| parent | ba952d654ad005826a6a219fa97b49af30193cca (diff) | |
| download | emacs-c1b180153f57777b64e27c45633d8a05e02dda5a.tar.gz | |
Make atomic cell update in data area.
* lisp/ses.el (ses-write-cells): Set inhibit-quit to t during the data
area write.
| -rw-r--r-- | lisp/ses.el | 5 |
1 files 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 " ")))) |