Lines Matching +refs:point +refs:max
102 ;; is how to maintain cache coherency. As a user moves point in and
125 ;; and "Table" in the menu bar when the point is in a table cell.
191 ;; |`table-unrecognize-cell' |which contains the current point |
194 ;; |`table-forward-cell' |Move point to the next Nth cell in|
197 ;; |`table-backward-cell' |Move point to the previous Nth |
208 ;; | |below the point location. |
213 ;; | |of the point location. |
314 ;; | TAB |Move point forward to the beginning of the next cell. |
369 ;; point is placed inside of a table cell a table specific menu item
590 ;; 21 point of view.
637 ;; (defun table--point-in-cell-p (&optional location)))
836 (defcustom table-point-entered-cell-hook nil
837 "*List of functions to be called after point entered a table cell."
842 (defcustom table-point-left-cell-hook nil
843 "*List of functions to be called after point left a table cell."
897 (defvar table-cell-cache-point-coordinate nil
898 "Cache point coordinate based from the cell origin.")
1029 :help "Insert a text based table at point"]
1031 :active (table--row-column-insertion-point-p)
1034 :active (table--row-column-insertion-point-p 'column)
1042 :active (and mark-active (not (eq (mark t) (point))))
1046 :help "Recognize a table at point"]
1050 :help "Recognize a cell at point"])
1056 :active (and mark-active (not (eq (mark t) (point))))
1067 :active (and (not buffer-read-only) mark-active (not (eq (mark t) (point))) (not (table--probe-cell)))
1077 :active (table--row-column-insertion-point-p)
1080 :active (table--row-column-insertion-point-p 'column)
1093 :help "Split the current cell horizontally at point"]
1096 :help "Split the current cell vertical at point"])
1241 :help "Move point forward by cell(s)"]
1244 :help "Move point backward by cell(s)"])
1290 buffer. Move the point to the cache buffer coordinate
1291 `table-cell-cache-point-coordinate'. After BODY forms are executed,
1296 current buffer is restored to the original one. The last cache point
1297 coordinate is stored in `table-cell-cache-point-coordinate'. The
1298 original buffer's point is moved to the location that corresponds to
1299 the last cache point coordinate."
1307 ;; goto the cell coordinate based on `table-cell-cache-point-coordinate'.
1309 (table--goto-coordinate table-cell-cache-point-coordinate)
1319 (table--fill-region (point-min) (point-max))
1321 (save-excursion (forward-paragraph -1) (point))
1322 (save-excursion (forward-paragraph 1) (point)))))
1324 (setq table-cell-cache-point-coordinate (table--get-coordinate))
1326 (setq ,width-expansion (table--measure-max-width))
1328 (table--fill-region (point-min) (point-max) ,width-expansion)
1330 (setq table-cell-cache-point-coordinate (table--get-coordinate)))
1334 (goto-char (point-min))
1347 (table--goto-coordinate table-cell-cache-point-coordinate)
1348 (setq table-cell-cache-point-coordinate (table--valign)))
1349 ;; move the point in the table buffer to the location that corresponds to
1351 (table--goto-coordinate (table--transcoord-cache-to-table table-cell-cache-point-coordinate))
1426 (table--remove-cell-properties (point-min) (point-max))
1427 (table--remove-eol-spaces (point-min) (point-max))
1461 (table--untabify (point-min) (point-max))
1462 (table--fill-region (point-min) (point-max))
1516 \\[table-insert] inserts a table at the current point location.
1519 location of point.
1526 table and the point is automatically moved to the beginning of the
1543 TAB moves the point forward by a cell. The result now looks like this:
1562 If the point is in the last cell type S-TAB S-TAB to move it to the
1580 Move the point under the table as shown below.
1592 when the point is outside of the table. This insertion at
1673 (setq border-str (buffer-substring (point-min) (point-max)))
1680 (let ((beg (point)))
1683 (table--put-cell-line-property beg (1- (point))))
1686 (setq cell-str (buffer-substring (point-min) (point-max))))
1700 (table--untabify-line (point))
1705 (table--untabify-line (point))
1709 (table--untabify-line (point))
1720 When point is in a table the newly inserted row(s) are placed above
1721 the current row. When point is outside of the table it must be below
1792 ;; move the point to the beginning of the first newly inserted cell.
1803 When point is in a table the newly inserted column(s) are placed left
1804 of the current column. When point is outside of the table it must be
1844 (table--untabify-line (point)))
1880 ;; move the point to the beginning of the first newly inserted cell.
1923 (table-recognize-region (point-min) (point-max) -1)
1926 (goto-char (point-min))
1944 (while (and (re-search-forward border3 (point-max) t)
1947 (message "Recognizing tables...(%d%%)" (/ (* 100 (match-beginning 0)) (- (point-max) (point-min))))
1950 (if (re-search-forward non-border (point-max) t)
1952 (setq end (goto-char (point-max))))
1988 (while (and (< (point) end)
1998 ((table--at-cell-p (point))
1999 (goto-char (next-single-property-change (point) 'table-cell nil end)))
2015 "Recognize a table at point.
2041 "Recognize a table cell that contains current point.
2086 (setq table-cell-cache-point-coordinate (table--transcoord-table-to-cache))
2283 ;; if this is the cell where the original point was in, adjust the point location
2353 (table--untabify-line (point)))
2389 (table--fill-region (point-min) (point-max) (- table-cell-info-width n))
2390 (if (< (setq cell-n (- table-cell-info-width (table--measure-max-width))) n)
2415 (table--fill-region (point-min) (point-max) (- table-cell-info-width n))
2423 ;; the current-coordinate (point location) down accordingly.
2463 "Move point forward to the beginning of the next cell.
2502 ;; They are examples of tricky cases from implementation point of
2685 (insert (if (and (> (point) (point-min))
2701 (table--fill-region (point-min) (point-max))
2707 Creates a cell above and a cell below the current point location."
2710 (let ((point-y (cdr (table--get-coordinate))))
2717 point-y)))
2720 point-y)))
2737 (goto-char (point-min))
2739 (goto-char (point-min)) ;; don't heighten cell unnecessarily
2749 Creates a cell on the left and a cell on the right of the current point location."
2753 (point-x (car o-coordinate))
2763 (goto-char (point-min))
2765 (setq cell-contents (buffer-substring (point-min) (point-max)))
2787 (cons point-x
2790 (cons (1+ point-x)
2823 (goto-char (point-min))
2830 (table--fill-region (point-min) (point-max))
3001 generated result is inserted at the current point in the destination
3093 (goto-char (point-min))
3128 (table-put-source-info 'colspec-marker (point-marker))
3260 (table--remove-cell-properties (point-min) (point-max))
3261 (goto-char (point-min))
3266 (table--remove-eol-spaces (point-min) (point-max))
3271 (goto-char (point-min))
3278 (goto-char (point-min))
3281 (table--remove-eol-spaces (point-min) (point-max))
3285 (setq cell-contents (buffer-substring (point-min) (point-max))))
3287 (let ((beg (point)))
3289 (indent-rigidly beg (point)
3347 (goto-char (point-min))
3356 (setq line (buffer-substring (point-min) (point-max))))
3466 (goto-char (point-min))
3472 (table--fill-region (point-min) (point) table-cell-info-width justify)
3497 contains the current cell where point is located. Each row must
3552 ;; goto appropriate end point
3559 the column contains the current cell where point is located. Each
3603 ;; goto appropriate end point
3725 (mark) (point)
3766 (goto-char (point-max))
3770 (goto-char (point-min))
3774 (let ((from (point)))
3835 (table--remove-eol-spaces (point-min) (point-max))
3836 (table--untabify (point-min) (point-max))
3837 (setq width (table--measure-max-width))
3838 (setq height (1+ (table--current-line (point-max))))
3839 (setq contents (buffer-substring (point-min) (point-max))))
3873 (let ((old-point (point-marker)))
3875 ;; because untabify operation moves point
3876 (set-marker-insertion-type old-point t)
3899 (goto-char old-point))))))
3973 (if (= (point)
3978 (point)))
3988 (table--fill-region (point) (point))
4016 (end-marker (copy-marker (+ (point) n)))
4018 (if (or (< end-marker (point-min))
4019 (> end-marker (point-max))) nil
4020 (table--remove-eol-spaces (point-min) (point-max))
4021 (setq deleted (buffer-substring (point) end-marker))
4029 ;; see if the point is placed at the right tip of the previous
4033 (let ((end (point)))
4037 (= (point) end))))
4039 ;; do not fill the paragraph if the point is already at the end
4062 (if (not (table--point-in-cell-p))
4089 (if (not (table--point-in-cell-p))
4130 (goto-char (posn-point (event-start event)))
4184 (table--transcoord-cache-to-table table-cell-cache-point-coordinate)
4221 (table--fill-region (point-min) (point-max))
4276 "Move point to top left corner of the current table and return the char position."
4283 "Move point to top right corner of the current table and return the char position."
4290 "Move point to bottom left corner of the current table and return the char position."
4297 "Move point to bottom right corner of the current table and return the char position."
4309 (table--point-in-cell-p))
4319 (table--point-in-cell-p))
4331 (table--point-in-cell-p))
4384 Returns the coordinate of the final point location."
4388 (let ((saved-point (point-marker)))
4389 ;;(set-marker-insertion-type saved-point t)
4390 (goto-char (point-min))
4399 (goto-char (point-min))
4409 (goto-char saved-point)
4410 (set-marker saved-point nil)
4502 (goto-char (point-min))
4524 (goto-char (point-min))
4557 (let ((beg (point-min))
4558 (end (point-max-marker))
4572 (set-marker end (point))
4573 (setq beg (progn (forward-paragraph -1) (point)))))
4607 (table--untabify-line (point))
4621 (table--untabify-line (point))
4666 even when the point is on a tab character which is to be removed.
4667 Optional FROM narrows the subject operation from this point to the end
4670 (table--untabify (or from (progn (beginning-of-line) (point)))
4671 (progn (end-of-line) (point)))
4694 (point)))
4696 (defun table--row-column-insertion-point-p (&optional columnp)
4697 "Return non-nil if it makes sense to insert a row or a column at point."
4699 (or (get-text-property (point) 'table-cell)
4705 (text-property-any (line-beginning-position) (point) 'table-cell t)
4771 (let ((point-x (car (table--get-coordinate))))
4773 (and (> point-x (car table-cell-info-lu-coordinate))
4774 (<= point-x (1- (car table-cell-info-rb-coordinate)))))))
4779 (let ((point-y (cdr (table--get-coordinate))))
4781 (and (> point-y (cdr table-cell-info-lu-coordinate))
4782 (<= point-y (cdr table-cell-info-rb-coordinate))))))
4837 (delete-region (point) (table--goto-coordinate mark-coordinate))))
4855 (> (point) 2)
4871 (let ((o-point (point)))
4876 (= o-point (point)))
4878 (goto-char o-point)
4880 (setq o-point (point))
4883 (= o-point (point)))))
4898 (goto-char (point-min))
4902 (defun table--measure-max-width (&optional unlimited)
4909 (goto-char (point-min))
4920 (max 1 width)))))
5043 (defun table--point-in-cell-p (&optional location)
5044 "Return t when point is in a valid table cell in the current buffer.
5046 (and (table--at-cell-p (or location (point)))
5079 (limit (save-excursion (beginning-of-line) (point))))
5102 (throw 'end (point)))
5117 (limit (save-excursion (end-of-line) (point))))
5140 (throw 'end (point))))
5151 (get-text-property (point) 'table-cell)))
5154 "Probes a table cell around the point.
5156 cell which contains the current point location.
5206 "Insert text of RECTANGLE with upper left corner at point.
5254 (table--put-cell-point-entered/left-property beg end object))
5273 (defun table--put-cell-point-entered/left-property (beg end &optional object)
5274 "Put point-entered/left property."
5275 (put-text-property beg end 'point-entered 'table--point-entered-cell-function object)
5276 (put-text-property beg end 'point-left 'table--point-left-cell-function object))
5292 'point-entered nil
5293 'point-left nil
5335 (defun table--point-entered-cell-function (&optional old-point new-point)
5338 ;; Avoid calling point-motion-hooks recursively.
5339 (let ((inhibit-point-motion-hooks t))
5345 (run-hooks 'table-point-entered-cell-hook))))
5347 (defun table--point-left-cell-function (&optional old-point new-point)
5350 ;; Avoid calling point-motion-hooks recursively.
5351 (let ((inhibit-point-motion-hooks t))
5356 (run-hooks 'table-point-left-cell-hook))))
5405 even when point is within the removal area."
5410 (let ((saved-point (point-marker))
5416 ;; avoid removal that causes the saved point to lose its location.
5418 (<= (match-beginning 1) saved-point)
5419 (<= saved-point (match-end 1))
5421 (delete-region saved-point (match-end 1))
5423 (set-marker saved-point nil)
5435 (marker-point (point-marker)))
5440 (set-marker-insertion-type marker-point t))
5441 (table--remove-eol-spaces (point-min) (point-max))
5446 (goto-char marker-point)
5449 (set-marker marker-point nil)))
5478 (< (point) end)))
5485 "Move point to the given COORDINATE and return the location.
5488 to achieve the goal coordinate and returns the goal point. It
5489 intentionally does not preserve the original point in case it fails
5496 (goto-char (point-min))
5515 (point))
5519 (point)))))
5526 "Return the coordinate of point in current buffer.
5528 location instead of point in the current buffer. It does not move the
5529 point"
5540 (count-lines (point-min) (point))))
5544 When COORDINATE is omitted or nil the point in current buffer is assumed in place."
5552 When COORDINATE is omitted or nil the point in current buffer is assumed in place."