Lines Matching refs:blank
438 ;; It is strongly recommended to have at least one blank line above
466 ;; blank line. Here is a typical example of how to list items within
481 ;; |spaces or follow a blank line. |
485 ;; |blank line between them. |
1755 ;; prepend blank cell lines to the extracted rectangle
1768 (table--cell-blank-str (- (cadr this) (caar this)))
1815 (cell-str (table--multiply-string (concat (table--cell-blank-str cell-width)
2109 Heightening is done by adding blank lines at the bottom of the current
2143 ;; prepend blank cell lines to the extracted rectangle
2149 (table--cell-blank-str (- (cadr this) (caar this)))
2166 Shortening is done by removing blank lines from the bottom of the cell
2168 must have some bottom/top blank lines to be shorten effectively. This
2184 (blank-line-regexp "\\s *$"))
2186 ;; for each cell calculate the maximum number of blank lines we can delete
2188 ;; blank lines from top and bottom of a cell do not exceed n, all cell has
2189 ;; at least one line height after blank line deletion.
2196 (let ((blank-line-count 0))
2199 (while (and (looking-at blank-line-regexp)
2200 (setq blank-line-count (1+ blank-line-count))
2201 ;; need to leave at least one blank line
2202 (if (> blank-line-count n) (throw 'end-count nil) t)
2204 (setq n (if (zerop blank-line-count) 0
2205 (1- blank-line-count)))
2209 (while (and (looking-at blank-line-regexp)
2210 (setq blank-line-count (1+ blank-line-count))
2211 ;; can consume all blank lines
2212 (if (>= blank-line-count n) (throw 'end-count nil) t)
2214 (setq n blank-line-count))))))
2228 (let ((blank-line-count 0))
2230 (while (and (looking-at blank-line-regexp)
2231 (< blank-line-count n)
2232 (setq blank-line-count (1+ blank-line-count))
2234 blank-line-count)
2250 (blank-line (make-string (- (cadr this) (caar this)) ?\s)))
2258 ;; append blank lines below the table
2259 (setq rect (append rect (make-list n blank-line)))
2291 ;; remove the appended blank lines below the table if they are unnecessary
2293 (table--remove-blank-lines n)
2334 (blank (table--cell-blank-str))
2342 blank)
2652 ;; replace the bar with blank space while taking care of edges to be border or intersection
2674 (setq rectangle (cons (table--cell-blank-str 1) rectangle))
2692 (table--cell-blank-str (- end beg 2))
2819 ;; insert the strip only when it is not a completely blank one
3528 ;; insert the remaining area while appending blank lines below it
3532 ;; remove the appended blank lines below the table if they are unnecessary
3534 (table--remove-blank-lines (+ 2 (- (cdr rb-coord) (cdr lu-coord))))
4030 ;; blank line, if so get rid of the preceding blanks.
4040 ;; of this paragraph and is following a blank character
4459 (defun table--remove-blank-lines (n)
4460 "Delete N blank lines from the current line.
4463 (let ((first-blank t))
4469 ((and (looking-at "\\([ \t]*\n[ \t]*\\)\n") first-blank)
4475 (setq first-blank nil)
4633 1. When the first line below the table is a complete blank line it
4634 inserts a blank line.
5395 (defun table--cell-blank-str (&optional n)
5396 "Return blank table cell string of length N."