Commit ec85195e authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(table-hooks): Finish `defgroup' description with period.

(table-insert, table-shorten-cell, table--generate-source-scan-lines,
table-delete-row, *table--cell-delete-char, table--spacify-frame,
table--horizontally-shift-above-and-below, table--cell-insert-char,
table--cell-blank-str, table--fill-region-strictly): "?\ " -> "?\s".
parent fae1a906
......@@ -650,7 +650,7 @@ See `table-insert' for examples about how to use."
:version "22.1")
(defgroup table-hooks nil
"Hooks for table manipulation utilities"
"Hooks for table manipulation utilities."
:group 'table)
(defcustom table-time-before-update 0.2
......@@ -1678,7 +1678,7 @@ Inside a table cell has a special keymap.
(setq i 0)
(while (< i columns)
(let ((beg (point)))
(insert (make-string (car cw) ?\ ))
(insert (make-string (car cw) ?\s))
(insert table-cell-vertical-char)
(table--put-cell-line-property beg (1- (point))))
(if (cdr cw) (setq cw (cdr cw)))
......@@ -2247,7 +2247,7 @@ table structure."
(end (table--goto-coordinate (cons (cadr this) bottom-border-y)))
(rect (extract-rectangle beg end))
(height (+ (- (cddr this) (cdar this)) 1))
(blank-line (make-string (- (cadr this) (caar this)) ?\ )))
(blank-line (make-string (- (cadr this) (caar this)) ?\s)))
;; delete lines from the bottom of the cell
(setcdr (nthcdr (- height bottom-budget 1) rect) (nthcdr height rect))
;; delete lines from the top of the cell
......@@ -3363,7 +3363,7 @@ Currently this method is for LaTeX only."
;; insert a column separator and column/multicolumn contents
(with-current-buffer dest-buffer
(unless first-p
(insert (if (eq (char-before) ?\ ) "" " ") "& "))
(insert (if (eq (char-before) ?\s) "" " ") "& "))
(if (> span 1)
(insert (format "\\multicolumn{%d}{%sl|}{%s}" span (if first-p "|" "") line))
(insert line)))
......@@ -3379,7 +3379,7 @@ Currently this method is for LaTeX only."
(setq i (1+ i)))
(funcall insert-column start x1))
(with-current-buffer dest-buffer
(insert (if (eq (char-before) ?\ ) "" " ") "\\\\\n"))))
(insert (if (eq (char-before) ?\s) "" " ") "\\\\\n"))))
(setq y (1+ y)))
(with-current-buffer dest-buffer
(insert "\\hline\n"))
......@@ -3534,7 +3534,7 @@ consists from cells of same height."
;; insert the remaining area while appending blank lines below it
(table--insert-rectangle
(append rect (make-list (+ 2 (- (cdr rb-coord) (cdr lu-coord)))
(make-string (+ 2 (- (car rb-coord) (car lu-coord))) ?\ ))))
(make-string (+ 2 (- (car rb-coord) (car lu-coord))) ?\s))))
;; remove the appended blank lines below the table if they are unnecessary
(table--goto-coordinate (cons 0 (- (cdr bt-coord) (- (cdr rb-coord) (cdr lu-coord)))))
(table--remove-blank-lines (+ 2 (- (cdr rb-coord) (cdr lu-coord))))
......@@ -4014,7 +4014,7 @@ converts a table into plain text without frames. It is a companion to
(unless (eolp)
(delete-char 1)))
(delete-char -1)
(insert ?\ )
(insert ?\s)
(forward-char -1)))
(setq n (1+ n)))
(setq table-inhibit-auto-fill-paragraph t))
......@@ -4446,16 +4446,16 @@ Replace frame characters with spaces."
(move-to-column col)
(table--spacify-frame))))
(delete-char 1)
(insert-before-markers ?\ ))
(insert-before-markers ?\s))
((table--cell-horizontal-char-p (char-after))
(while (progn
(delete-char 1)
(insert-before-markers ?\ )
(insert-before-markers ?\s)
(table--cell-horizontal-char-p (char-after)))))
((eq (char-after) table-cell-vertical-char)
(while (let ((col (current-column)))
(delete-char 1)
(insert-before-markers ?\ )
(insert-before-markers ?\s)
(and (zerop (forward-line 1))
(zerop (current-column))
(move-to-column col)
......@@ -4611,7 +4611,7 @@ list. This list can be any vertical list within the table."
(table--untabify-line)
(delete-char columns-to-extend))
(table--untabify-line (point))
(insert (make-string columns-to-extend ?\ )))
(insert (make-string columns-to-extend ?\s)))
(setcdr coord (1- (cdr coord)))))
(table--goto-coordinate (caar (last top-to-bottom-coord-list)))
(let ((coord (table--get-coordinate (cdr (table--horizontal-cell-list nil 'first-only 'bottom)))))
......@@ -4625,7 +4625,7 @@ list. This list can be any vertical list within the table."
(table--untabify-line)
(delete-char columns-to-extend))
(table--untabify-line (point))
(insert (make-string columns-to-extend ?\ )))
(insert (make-string columns-to-extend ?\s)))
(setcdr coord (1+ (cdr coord)))))
(while (<= (cdr beg-coord) (cdr end-coord))
(table--untabify-line (table--goto-coordinate beg-coord 'no-extension))
......@@ -4854,7 +4854,7 @@ in the list."
(insert char)
(unless (eolp)
(delete-char 1))))
(if (not (eq char ?\ ))
(if (not (eq char ?\s))
(if char (insert char))
(if (not (looking-at "\\s *$"))
(if (and table-fixed-width-mode
......@@ -5398,7 +5398,7 @@ works better than the previous versions however not fully compatible.
(defun table--cell-blank-str (&optional n)
"Return blank table cell string of length N."
(let ((str (make-string (or n 1) ?\ )))
(let ((str (make-string (or n 1) ?\s)))
(table--put-cell-content-property 0 (length str) str)
str))
......@@ -5481,7 +5481,7 @@ chopped location is indicated with table-word-continuation-char."
(and (zerop (forward-line 1))
(< (point) end)))
(t (forward-char -1)
(insert-before-markers (if (equal (char-before) ?\ ) ?\ table-word-continuation-char)
(insert-before-markers (if (equal (char-before) ?\s) ?\s table-word-continuation-char)
"\n")
t)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment