Lines Matching defs:read
92 (defvar ses-read-cell-history nil
95 (defvar ses-read-printer-history nil
113 "\C-c\C-p" ses-read-default-printer
132 ["Set column printer" ses-read-column-printer t]
134 ["Set default printer" ses-read-default-printer t]
136 ["Set cell printer" ses-read-cell-printer t]
171 "(" ses-read-cell
172 "\"" ses-read-cell
173 "'" ses-read-symbol
176 "p" ses-read-cell-printer
179 "\M-p" ses-read-column-printer))
192 (define-key newmap (substring numeric x (1+ x)) 'ses-read-cell))
220 "\n( ;Global parameters (these are read first)\n 2 ;SES file-format\n 1 ;numrows\n 1 ;numcols\n)\n\n"
284 ;; another as a side effect, then read back by the first, as a way of
291 "Set by `ses-relocate-formula' and `ses-relocate-range', read by
494 "Add PRINTER to `ses-read-printer-history' if not already there, after first
499 (add-to-list 'ses-read-printer-history (prin1-to-string printer))))
847 (let ((inhibit-read-only t)
864 (put-text-property (point-min) (point) 'read-only 'ses)
911 (let ((inhibit-read-only t)
979 (let ((inhibit-read-only t)
1005 (let* ((inhibit-read-only t)
1301 (let ((inhibit-read-only t))
1347 (let ((params (condition-case nil (read (current-buffer)) (error nil))))
1385 (let* ((x (read (current-buffer)))
1396 (let ((widths (read (current-buffer)))
1398 (printers (read (current-buffer)))
1400 (def-printer (read (current-buffer)))
1402 (head-row (read (current-buffer)))
1432 Narrows the buffer to show only the print area. Gives it `read-only' and
1436 (inhibit-read-only t)
1442 ;;The print area is read-only (except for our special commands) and uses a
1444 (put-text-property (point-min) (1- (point)) 'read-only 'ses)
1446 ;;For the beginning of the buffer, we want the read-only and keymap
1476 (let ((inhibit-read-only t)
1478 ;;Delete read-only, keymap, and intangible properties
1535 (1value (ses-read-default-printer ses-initial-default-printer)))
1583 ;;read the local variables at the end of the file. Now it's safe to
1688 (inhibit-read-only t))
1800 (let ((inhibit-read-only t))
1844 (barf-if-buffer-read-only)
1860 (read-from-minibuffer (format "Cell %s: " ses--curcell)
1864 'ses-read-cell-history)))))
1870 (defun ses-read-cell (row col newval)
1876 (barf-if-buffer-read-only)
1879 (read-from-minibuffer
1885 'ses-read-cell-history
1894 (defun ses-read-symbol (row col symb)
1900 (barf-if-buffer-read-only)
1901 (setq newval (completing-read (format "Cell %s ': " ses--curcell)
1947 (defun ses-read-printer (prompt default)
1948 "Common code for `ses-read-cell-printer', `ses-read-column-printer', and `ses-read-default-printer'.
1950 (barf-if-buffer-read-only)
1956 (let ((new (read-from-minibuffer prompt
1960 'ses-read-printer-history
1973 (defun ses-read-cell-printer (newval)
1987 (catch 'ses-read-cell-printer
1997 (throw 'ses-read-cell-printer t)))))
1998 (list (ses-read-printer (format "Cell %S printer: " ses--curcell)
2006 (defun ses-read-column-printer (col newval)
2008 `ses-read-cell-printer' for input forms."
2012 (list col (ses-read-printer (format "Column %s printer: "
2023 (defun ses-read-default-printer (newval)
2025 `ses-read-cell-printer' for input forms."
2027 (list (ses-read-printer "Default printer: " ses--default-printer)))
2046 (inhibit-read-only t)
2098 (inhibit-read-only t)
2140 (inhibit-read-only t)
2191 (inhibit-read-only t)
2244 (barf-if-buffer-read-only)
2252 (barf-if-buffer-read-only)
2272 (barf-if-buffer-read-only)
2276 (read-from-minibuffer (format "Column %s width [currently %d]: "
2303 "It doesn't make sense to copy read-only or intangible attributes into the
2314 (eq (get-text-property beg 'read-only) 'ses)
2315 (eq (get-text-property (1- end) 'read-only) 'ses)))
2329 '(read-only t
2342 (let ((inhibit-read-only t)
2364 ;;For some reason, the text-read-only error is not caught by
2366 (let ((buffer-read-only t))
2371 (buffer-read-only nil)))) ;The expected error
2372 ;;Because the buffer was marked read-only, the kill command turned itself
2374 ;;check whether the buffer really is read-only.
2375 (barf-if-buffer-read-only)
2502 (read-from-string text from to)
2653 (read-number "Header row: " currow)