Mercurial > emacs
comparison lisp/ses.el @ 63422:6c01c7e3e74f
(ses-load): Follow error conventions.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 14 Jun 2005 15:20:47 +0000 |
| parents | d3fe76043df3 |
| children | 85d4c02c56a6 a1b34dec1104 |
comparison
equal
deleted
inserted
replaced
| 63421:8d79f84e54e8 | 63422:6c01c7e3e74f |
|---|---|
| 1359 (ses-goto-data 'ses--header-row) | 1359 (ses-goto-data 'ses--header-row) |
| 1360 (insert "(ses-header-row 0)\n") | 1360 (insert "(ses-header-row 0)\n") |
| 1361 (ses-set-parameter 'ses--file-format 2) | 1361 (ses-set-parameter 'ses--file-format 2) |
| 1362 (message "Upgrading from SES-1 file format"))) | 1362 (message "Upgrading from SES-1 file format"))) |
| 1363 (or (= ses--file-format 2) | 1363 (or (= ses--file-format 2) |
| 1364 (error "This file needs a newer version of the SES library code.")) | 1364 (error "This file needs a newer version of the SES library code")) |
| 1365 (ses-create-cell-variable-range 0 (1- ses--numrows) 0 (1- ses--numcols)) | 1365 (ses-create-cell-variable-range 0 (1- ses--numrows) 0 (1- ses--numcols)) |
| 1366 ;;Initialize cell array | 1366 ;;Initialize cell array |
| 1367 (setq ses--cells (make-vector ses--numrows nil)) | 1367 (setq ses--cells (make-vector ses--numrows nil)) |
| 1368 (dotimes (row ses--numrows) | 1368 (dotimes (row ses--numrows) |
| 1369 (aset ses--cells row (make-vector ses--numcols nil)))) | 1369 (aset ses--cells row (make-vector ses--numcols nil)))) |