diff options
Diffstat (limited to 'lisp/textmodes/table.el')
| -rw-r--r-- | lisp/textmodes/table.el | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/lisp/textmodes/table.el b/lisp/textmodes/table.el index 59d60272aa8..daae88e138c 100644 --- a/lisp/textmodes/table.el +++ b/lisp/textmodes/table.el @@ -2651,7 +2651,8 @@ Creates a cell above and a cell below the current point location." ;;;###autoload (defun table-split-cell-horizontally () "Split current cell horizontally. -Creates a cell on the left and a cell on the right of the current point location." +Creates a cell on the left and a cell on the right of the current +point location." (interactive "*") (table-recognize-cell 'force) (let* ((o-coordinate (table--get-coordinate)) @@ -4197,21 +4198,21 @@ cache buffer into the designated cell in the table buffer." (1- (cdr (table--get-coordinate (car (table--vertical-cell-list t t)))))))) (defun table-goto-top-right-corner () - "Move point to top right corner of the current table and return the char position." + "Move point to top right corner of the current table and return char position." (table--goto-coordinate (cons (car (table--get-coordinate (cdr (table--horizontal-cell-list nil t)))) (1- (cdr (table--get-coordinate (car (table--vertical-cell-list t t)))))))) (defun table-goto-bottom-left-corner () - "Move point to bottom left corner of the current table and return the char position." + "Move point to bottom left corner of the current table and return char position." (table--goto-coordinate (cons (1- (car (table--get-coordinate (car (table--horizontal-cell-list t t))))) (1+ (cdr (table--get-coordinate (cdr (table--vertical-cell-list nil t)))))))) (defun table-goto-bottom-right-corner () - "Move point to bottom right corner of the current table and return the char position." + "Move point to bottom right corner of the current table and return char position." (table--goto-coordinate (cons (car (table--get-coordinate (cdr (table--horizontal-cell-list nil t)))) @@ -4925,7 +4926,7 @@ When optional LOCATION is provided the test is performed at that location." t)) (defun table--region-in-cell-p (beg end) - "Return t when location BEG and END are in a valid table cell in the current buffer." + "Return t when location BEG and END are in a valid table cell in current buffer." (and (table--at-cell-p (min beg end)) (save-excursion (let ((cell-beg (progn (goto-char beg) (table--probe-cell)))) @@ -5245,7 +5246,7 @@ works better than the previous versions however not fully compatible. str)) (defun table--remove-eol-spaces (beg end &optional bol force) - "Remove spaces at the end of each line in the BEG END region of the current buffer. + "Remove spaces at the end of each line in the BEG END region of current buffer. When optional BOL is non-nil spaces at the beginning of line are removed. When optional FORCE is non-nil removal operation is enforced even when point is within the removal area." @@ -5386,7 +5387,8 @@ point" (defun table--transcoord-table-to-cache (&optional coordinate) "Transpose COORDINATE from table coordinate system to cache coordinate system. -When COORDINATE is omitted or nil the point in current buffer is assumed in place." +When COORDINATE is omitted or nil the point in current buffer is +assumed in place." (table--offset-coordinate (or coordinate (table--get-coordinate)) table-cell-info-lu-coordinate @@ -5394,7 +5396,8 @@ When COORDINATE is omitted or nil the point in current buffer is assumed in plac (defun table--transcoord-cache-to-table (&optional coordinate) "Transpose COORDINATE from cache coordinate system to table coordinate system. -When COORDINATE is omitted or nil the point in current buffer is assumed in place." +When COORDINATE is omitted or nil the point in current buffer is +assumed in place." (table--offset-coordinate (or coordinate (table--get-coordinate)) table-cell-info-lu-coordinate)) |