Function: ses-copy-region-helper

ses-copy-region-helper is a byte-compiled function defined in ses.el.gz.

Signature

(ses-copy-region-helper LINE)

Documentation

Convert one line (of a rectangle being extracted from a spreadsheet) to external form by attaching to each print cell a ses attribute that records the corresponding data cell.

Source Code

;; Defined in /usr/src/emacs/lisp/ses.el.gz
(defun ses-copy-region-helper (line)
  "Convert one line (of a rectangle being extracted from a spreadsheet) to
external form by attaching to each print cell a `ses' attribute that records
the corresponding data cell."
  (or (> (length line) 1)
      (error "Empty range"))
  (let ((inhibit-read-only t)
	(pos 0)
	mycell next sym rowcol)
    (while pos
      (setq sym    (ses--cell-at-pos pos line)
	    next   (next-single-property-change pos 'cursor-intangible line)
	    rowcol (ses-sym-rowcol sym)
	    mycell (ses-get-cell (car rowcol) (cdr rowcol)))
      (put-text-property pos (or next (length line))
			 'ses
			 (list (ses-cell-symbol  mycell)
			       (ses-cell-formula mycell)
			       (ses-cell-printer mycell))
			 line)
      (setq pos next)))
  line)