Function: table--row-column-insertion-point-p

table--row-column-insertion-point-p is a byte-compiled function defined in table.el.gz.

Signature

(table--row-column-insertion-point-p &optional COLUMNP)

Documentation

Return non-nil if it makes sense to insert a row or a column at point.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/table.el.gz
(defun table--row-column-insertion-point-p (&optional columnp)
  "Return non-nil if it makes sense to insert a row or a column at point."
  (and (not buffer-read-only)
       (or (get-text-property (point) 'table-cell)
	   (let ((column (current-column)))
	     (if columnp
		 (or (text-property-any (line-beginning-position 0)
					(table--line-column-position -1 column)
					'table-cell t)
		     (text-property-any (line-beginning-position) (point) 'table-cell t)
		     (text-property-any (line-beginning-position 2)
					(table--line-column-position 1 column)
					'table-cell t))
	       (text-property-any (table--line-column-position -2 column)
				  (table--line-column-position -2 (+ 2 column))
				  'table-cell t))))))