Function: ses-set-header-row

ses-set-header-row is an interactive and byte-compiled function defined in ses.el.gz.

Signature

(ses-set-header-row ROW)

Documentation

Set the ROW to display in the header-line.

With a numerical prefix arg, use that row. With no prefix arg, use the current row. With a C-u (universal-argument) prefix arg, prompt the user. The top row is row 1. Selecting row 0 displays the default header row.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/ses.el.gz
(defun ses-set-header-row (row)
  "Set the ROW to display in the header-line.
With a numerical prefix arg, use that row.
With no prefix arg, use the current row.
With a \\[universal-argument] prefix arg, prompt the user.
The top row is row 1.  Selecting row 0 displays the default header row."
  (interactive
   (list (if (numberp current-prefix-arg) current-prefix-arg
	   (let* ((curcell (or (ses--cell-at-pos (point))
                               (user-error "Invalid header-row")))
                  (currow (1+ (car (ses-sym-rowcol curcell)))))
	     (if current-prefix-arg
		 (read-number "Header row: " currow)
	       currow)))))
  (if (or (< row 0) (> row ses--numrows))
      (error "Invalid header-row"))
  (ses-begin-change)
  (let ((oldval ses--header-row))
    (let (buffer-undo-list)
      (ses-set-parameter 'ses--header-row row))
    (push `(apply ses-set-header-row ,oldval) buffer-undo-list))
  (ses-reset-header-string))