diff options
| author | Vincent Belaïche | 2019-07-28 16:45:22 +0200 |
|---|---|---|
| committer | Vincent Belaïche | 2019-07-28 16:45:22 +0200 |
| commit | c1b180153f57777b64e27c45633d8a05e02dda5a (patch) | |
| tree | e6dcb3e895d105cdc239ec686d788b1ffa22d755 | |
| parent | ba952d654ad005826a6a219fa97b49af30193cca (diff) | |
| download | emacs-c1b180153f57777b64e27c45633d8a05e02dda5a.tar.gz emacs-c1b180153f57777b64e27c45633d8a05e02dda5a.zip | |
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." | |||
| 1509 | ,printer | 1509 | ,printer |
| 1510 | ,(ses-cell-references cell)))) | 1510 | ,(ses-cell-references cell)))) |
| 1511 | (ses-goto-data row col) | 1511 | (ses-goto-data row col) |
| 1512 | (delete-region (point) (line-end-position)) | 1512 | (let ((inhibit-quit t)) |
| 1513 | (insert text))) | 1513 | (delete-region (point) (line-end-position)) |
| 1514 | (insert text)))) | ||
| 1514 | (message " ")))) | 1515 | (message " ")))) |
| 1515 | 1516 | ||
| 1516 | 1517 | ||