Lines Matching +defs:start +defs:col
435 ;; are not predictable and will most likely start destroying the table
465 ;; line must start with some space characters or immediately follow a
480 ;; | 3. A paragraph must start with |
668 annoying delay before the typed result start appearing on the screen."
869 (defconst table-paragraph-start "[ \t\n\f]"
951 (defvar table-col-delim-regexp-history '(""))
2953 cell table-lu table-rb col-list row-list (cells 0))
2957 (setq col-list (cons (car (table--get-coordinate (car starting-cell))) nil))
2972 (if (memq (car lu-coordinate) col-list) nil
2973 (setq col-list (cons (car lu-coordinate) col-list)))
2984 (c (length col-list))
3039 cell origin-cell tail-cell col-list row-list (n 0) i)
3047 (setq col-list (cons (car (table--get-coordinate (car starting-cell))) nil))
3067 (unless (memq (car lu-coordinate) col-list)
3068 (setq col-list (cons (car lu-coordinate) col-list)))
3071 (setq col-list (sort col-list '<))
3076 ;; prepare to start from the origin cell
3079 (table--generate-source-prologue dest-buffer language caption col-list row-list)
3083 (table--generate-source-scan-lines dest-buffer language origin-cell tail-cell col-list row-list))
3086 (table--generate-source-scan-rows dest-buffer language origin-cell col-list row-list)))
3088 (table--generate-source-epilogue dest-buffer language col-list row-list))
3106 (defun table--generate-source-prologue (dest-buffer language caption col-list row-list)
3119 "\\begin{tabular}{|" (apply 'concat (make-list (length col-list) "l|")) "}\n"
3127 (insert (format " <tgroup cols=\"%d\" align=\"left\" colsep=\"1\" rowsep=\"1\">\n" (length col-list)))
3134 (defun table--generate-source-epilogue (dest-buffer language col-list row-list)
3147 (lambda (col)
3148 (insert (format " <colspec colnum=\"%d\" colname=\"c%d\"/>\n" col col)))
3153 (defun table--generate-source-scan-rows (dest-buffer language origin-cell col-list row-list)
3164 (table--generate-source-cells-in-a-row dest-buffer language col-list row-list)
3177 (defun table--generate-source-cells-in-a-row (dest-buffer language col-list row-list)
3180 (while col-list
3189 (if (< (car lu) (car col-list))
3190 (setq col-list nil)
3191 (while (and col-list
3192 (> (car lu) (car col-list)))
3193 (setq col-list (cdr col-list))
3195 (setq col-list (cdr col-list))
3197 (while (and col-list
3198 (> (1+ (car rb)) (car col-list)))
3200 (setq col-list (cdr col-list))
3228 (mapcar (lambda (col)
3229 (unless (memq col (table-get-source-info 'colnum-list))
3231 (cons col (table-get-source-info 'colnum-list)))))
3299 (defun table--generate-source-scan-lines (dest-buffer language origin-cell tail-cell col-list row-list)
3314 col-list))
3315 start i c)
3324 (if (and start (not (table--cell-horizontal-char-p c)))
3327 (insert (format "\\cline{%d-%d}\n" (1+ start) i)))
3328 (setq start nil)))
3329 (if (and (not start) (table--cell-horizontal-char-p c))
3330 (setq start i))
3332 (if start
3334 (insert (format "\\cline{%d-%d}\n" (1+ start) i)))))
3366 (setq start (nth i col-list)))))))
3367 (setq start x0)
3371 (funcall insert-column start (1- (nth i col-list)))
3374 (funcall insert-column start x1))
3607 (defun table-capture (beg end &optional col-delim-regexp row-delim-regexp justify min-cell-width columns)
3719 (let ((col-delim-regexp)
3726 (setq col-delim-regexp
3728 (car table-col-delim-regexp-history) nil nil 'table-col-delim-regexp-history))
3734 (if (and (string= col-delim-regexp "") (string= row-delim-regexp "")) 'left
3740 (if (and (string= col-delim-regexp "") (string= row-delim-regexp "")) "1"
3742 (if (and (not (string= col-delim-regexp "")) (string= row-delim-regexp ""))
3748 (if (string= col-delim-regexp "") (setq col-delim-regexp nil))
3755 (if (and col-delim-regexp row-delim-regexp)
3757 col-delim-regexp row-delim-regexp col-delim-regexp)
3758 (if col-delim-regexp
3759 (format "\\(\\)\\(\\)\\(\\)\\(\\(%s\\)\\s *\\)" col-delim-regexp))))
4129 (select-window (posn-window (event-start event)))
4130 (goto-char (posn-point (event-start event)))
4437 (let ((col (current-column)))
4440 (move-to-column col)
4450 (while (let ((col (current-column)))
4455 (move-to-column col)
4569 (let ((paragraph-start "\n"))
4577 (let ((paragraph-start table-paragraph-start))
5426 (defun table--fill-region (beg end &optional col justify)
5429 (let ((fill-column (or col table-cell-info-width))
5444 (let ((paragraph-start table-paragraph-start))
5468 (let ((paragraph-start table-paragraph-start))
5472 (while (let ((col (move-to-column fill-column t)))
5474 ((and (<= col fill-column)
5575 (let ((col 0)
5578 (while (and (< col column) (< idx len))
5579 (setq col (+ col (char-width (aref str idx))))
5614 ;; time-stamp-start: ";; Revised:[ \t]+" ***