Lines Matching +refs:set +refs:border +refs:color
343 ;; When using `table-cell-map-hook' do not use `local-set-key'.
347 ;; (local-set-key [<key sequence>] '<function>))))
393 ;; consist of valid border characters. Cells can not be nested one to
394 ;; another or overlapped to each other except sharing the border
395 ;; lines. A valid character of a cell's vertical border is either
397 ;; A valid character of a cell's horizontal border is either
403 ;; any of the border characters inside a table cell. Normally a few
633 ;; (unless (fboundp 'set-face-property)
634 ;; (defun set-face-property (face prop value)))
689 '((((min-colors 88) (class color))
691 (((class color))
699 "*Characters that may be used for table cell's horizontal border line."
705 "*Character that forms table cell's vertical border line."
728 (defun table-set-table-fixed-width-mode (variable value)
733 (set variable value))
747 :set 'table-set-table-fixed-width-mode
785 (defcustom table-html-table-attribute "border=\"1\""
856 It must be set before loading this package `table.el' for the first
914 This is always set to nil at the entry to `table-with-cache-buffer' before executing body forms.")
1289 Save the current buffer and set the cache buffer as the current
1293 remains nil. BODY can set it to t when it does not want to fill the
1308 (set-mark (table--goto-coordinate table-cell-cache-mark-coordinate))
1352 ;; set up the update timer unless it is explicitly inhibited.
1362 ;; color it as a keyword
1662 r i cw ch cell-str border-str)
1663 ;; prefabricate the building blocks border-str and cell-str.
1665 ;; construct border-str
1673 (setq border-str (buffer-substring (point-min) (point-max)))
1687 ;; if the construction site has an empty border push that border down.
1692 (setq border-str (concat border-str "\n"))
1701 (insert border-str))
1710 (insert border-str)
1733 (bottom-border-y (1+ (cdr (table--get-coordinate (cdr (table--vertical-cell-list nil t))))))
1740 (table--create-growing-space-below (* n (+ 1 cell-height)) coord-list bottom-border-y)
1753 bottom-border-y)))
1776 (1+ bottom-border-y)))
1794 (if append-row (cons (car (caar coord-list)) (1+ bottom-border-y))
1813 (border-str (table--multiply-string (concat (make-string cell-width (string-to-char table-cell-horizontal-chars))
1823 (right-border-x (car (table--get-coordinate (cdr (table--horizontal-cell-list nil t))))))
1833 (beg-coord (cons (if append-column (1+ right-border-x) (caar this))
1835 (end-coord (cons (1+ right-border-x)
1848 ;; cell and to the right border of the table.
1859 (setcar rect-str (concat border-str (car rect-str)))
1861 (setcar rect-str (concat border-str (car rect-str)))
1883 (cons (1+ right-border-x)
1927 (let* ((border (format "[%s%c%c]"
1931 (border3 (concat border border border))
1932 (non-border (format "^[^%s%c%c]*$"
1938 ;; table border characters to begin with such as
1942 ;; and any tables end with a line containing no table border characters
1950 (if (re-search-forward non-border (point-max) t)
1976 (let* ((border (format "[%s%c%c]"
1980 (non-border (format "[^%s%c%c]"
1994 ((looking-at border)
1995 (if (re-search-forward non-border end t)
2004 (unless (re-search-forward border end t)
2071 ;; set/remove table cell properties
2084 ;; only if no-copy is nil and timers are not set
2093 (set-buffer cache-buffer)
2120 (bottom-border-y (1+ (cdr (table--get-coordinate (cdr (table--vertical-cell-list nil t))))))
2128 (table--create-growing-space-below n coord-list bottom-border-y)
2141 bottom-border-y)))
2181 (bottom-border-y (1+ (cdr (table--get-coordinate (cdr (table--vertical-cell-list nil t))))))
2247 (end (table--goto-coordinate (cons (cadr this) bottom-border-y)))
2257 (set-text-properties 0 1 props (car rect))))
2267 (end (table--goto-coordinate (cons (caar this) bottom-border-y)))
2276 (end (table--goto-coordinate (cons (1+ (cadr this)) bottom-border-y)))
2292 (table--goto-coordinate (cons 0 (1+ (- bottom-border-y n))))
2330 (border (format "[%s%c]\\%c"
2340 (if (string-match border (car tmp))
2619 ;; prepare beginning and ending positions of the border bar to strike through
2652 ;; replace the bar with blank space while taking care of edges to be border or intersection
3130 (set-marker-insertion-type (table-get-source-info 'colspec-marker) nil) ;; insert after
3143 (set-marker-insertion-type (table-get-source-info 'colspec-marker) t) ;; insert before
3309 (let* ((border-p (memq (1+ y) row-list))
3310 (border-char-list
3312 (if border-p (char-after (table--goto-coordinate (cons x y)))
3316 (if border-p
3317 ;; horizontal cell border processing
3318 (if (and (table--cell-horizontal-char-p (car border-char-list))
3319 (table--uniform-list-p border-char-list))
3323 (while (setq c (nth i border-char-list))
3369 (while (setq c (nth i border-char-list))
3876 (set-marker-insertion-type old-point t)
4049 (set-marker end-marker nil))))))
4158 (table--set-timer table-time-before-update
4162 (set-buffer table-cell-buffer)
4168 (set-buffer cache-buffer)
4173 (set-buffer table-cell-buffer)
4197 (table--set-timer (+ table-time-before-update table-time-before-reformat)
4203 (set-buffer table-cell-buffer)
4236 (table--set-timer (+ table-time-before-update table-time-before-reformat)
4244 (set-buffer table-cell-buffer)
4351 (set (cdr prompt-history)
4359 ;; single-byte character set, and convert them to Emacs
4389 ;;(set-marker-insertion-type saved-point t)
4410 (set-marker saved-point nil)
4572 (set-marker end (point))
4580 (set-marker end nil)))
4628 (defun table--create-growing-space-below (lines-to-extend left-to-right-coord-list bottom-border-y)
4641 (prefix (and (table--goto-coordinate (cons 0 bottom-border-y))
4646 (cons (1- (caar (car left-to-right-coord-list))) bottom-border-y)))
4650 (let ((y (+ i bottom-border-y 1)))
5077 (v-border (format "[%c%c]" table-cell-vertical-char table-cell-intersection-char))
5078 (h-border (format "[%s%c]" table-cell-horizontal-chars table-cell-intersection-char))
5083 (if (not (search-backward-regexp v-border limit t))
5098 ((looking-at (concat intersection-str h-border))
5115 (v-border (format "[%c%c]" table-cell-vertical-char table-cell-intersection-char))
5116 (h-border (format "[%s%c]" table-cell-horizontal-chars table-cell-intersection-char))
5121 (if (not (search-forward-regexp v-border limit t))
5135 ((save-excursion (forward-char -1) (looking-at (concat h-border intersection-str)))
5139 (looking-at v-border)
5165 (border (format "^[%s%c%c]+$"
5179 border
5190 border
5241 cell border character and the first content character. END is the end
5243 and the right cell border character."
5302 (set-face-property 'table-cell 'underline table-fixed-width-mode)
5303 (set-face-inverse-video-p 'table-cell table-fixed-width-mode)))
5374 such that a border characters dissolve into adjacent cells. Please be
5423 (set-marker saved-point nil)
5424 (set-marker end-marker nil)))
5428 Current buffer must already be set to the cache buffer."
5440 (set-marker-insertion-type marker-point t))
5447 (set-marker marker-beg nil)
5448 (set-marker marker-end nil)
5449 (set-marker marker-point nil)))
5585 (defun table--set-timer (seconds func args)