Lines Matching refs:point
70 "Set the fill prefix to the current line up to point.
74 (let ((left-margin-pos (save-excursion (move-to-left-margin) (point))))
75 (if (> (point) left-margin-pos)
77 (setq fill-prefix (buffer-substring left-margin-pos (point)))
138 (let* ((here (progn (beginning-of-line) (point)))
140 (eol (progn (end-of-line) (point)))
175 (while (and (< (point) end)
191 (point)))))
250 (if (< (point) to)
313 "Return nil if French style allows breaking the line at point.
331 The predicates are called with no arguments, with point at the place to
343 "Return nil if breaking the line at point is allowed.
347 (and fill-nobreak-invisible (line-move-invisible-p (point)))
370 ;; If this break point is at the end of the line,
377 ;; Put `fill-find-break-point-function' property to charsets which
378 ;; require special functions to find line breaking point.
385 (put-charset-property (car pair) 'fill-find-break-point-function (cdr pair)))
387 (defun fill-find-break-point (limit)
388 "Move point to a proper line breaking position of the current line.
393 character has the property `fill-find-break-point-function', this
404 (get-charset-property charset 'fill-find-break-point-function)))
425 (while (< (point) to)
427 (delete-region (point) (match-end 0)))
432 (point)))
455 (or (>= (point) to) (memq (char-before) '(?\t ?\s))
490 (canonically-space-region (or squeeze-after (point)) to)
496 (defun fill-move-to-break-point (linebeg)
498 The break position will be always after LINEBEG and generally before point."
500 (if (> linebeg (point)) (goto-char linebeg))
501 ;; Move back to the point where we can break the line
506 ;; the point at linebeg.
509 ;; In case of space, we place the point at next to
510 ;; the point where the break occurs actually,
513 ;; point is at the place where the break occurs.
525 (if (>= linebeg (point))
531 (while (and (< (point) to) (or first (fill-nobreak-p)))
532 ;; Find a breakable point while ignoring the
539 (point))))
549 ;; character to find the correct break point.
550 (if (not (and (eq (charset-after (1- (point))) 'ascii)
551 (eq (charset-after (point)) 'ascii)))
553 (fill-find-break-point linebeg)))))
572 (set-text-properties (1- (point)) (point)
573 (fill-text-properties-at (point)))
575 (or (aref (char-category-set (or (char-before (1- (point))) ?\000)) ?|)
580 (put-text-property (1- (point)) (point) 'fill-space (match-string 1)))
584 (remove-text-properties (1- (point)) (point)
592 ;; Markers that were after the whitespace are now at point: insert
598 (let ((beg (point)))
600 (put-text-property beg (point) 'face 'default)))
609 It leaves point at the beginning of the line following the paragraph.
636 (let ((from-plus-indent (point))
642 ;; to fill the comment but not the code. So only use (point) if it's
645 (setq from (max (point) from))
650 (while (and (> (point) from) (eq ?\n (char-after (1- (point)))))
653 (get-text-property (1- (point)) 'hard))))
657 (setq to (copy-marker (point) t))
664 (if (not (> to (point)))
687 (while (< (point) to)
701 (setq from (point))
703 ;; FROM, and point, are now before the text to fill,
711 (while (< (point) to)
712 (setq linebeg (point))
714 (if (when (< (point) to)
717 (fill-move-to-break-point linebeg)
721 (< (point) to))
734 ;; Leave point after final newline.
741 "If point is inside the string PREFIX at the beginning of line, move past it."
743 (< (- (point) (line-beginning-position)) (length prefix))
752 (narrow-to-region (minibuffer-prompt-end) (point-max))
756 "Fill paragraph at or after point.
774 (= 1 (point-min))))
793 (let ((before (point))
811 ;; There's no paragraph at or after point: give up.
813 (let ((end (point))
814 (beg (progn (backward-paragraph) (point))))
836 (setq comin (point))
874 (buffer-substring (point) comin))
892 (point)))
894 (progn (setq comstart (point)) 1)
895 (progn (setq comstart (point)) 2)))))
900 (point)))
921 (setq end (progn (forward-paragraph) (point)))
925 (if (eq (point) after-line)
927 (point)))))
982 (setq max (copy-marker (point) t))
985 (while (< (point) max)
986 (let ((initial (point))
992 (while (and (setq end (text-property-any (point) max
1000 (setq end (min max (point)))
1002 (if (< (point) beg)
1004 (if (>= (point) initial)
1006 (fill-region-as-paragraph (point) end justify nosqueeze))
1034 (1- (point)) (point)))
1056 (interactive (list (if mark-active (region-beginning) (point))
1057 (if mark-active (region-end) (point))
1075 (setq begin (point))
1079 (setq end (point))))
1081 (narrow-to-region (point-min) end)
1082 (unjustify-region begin (point-max))
1083 (put-text-property begin (point-max) 'justification style)
1084 (fill-region begin (point-max) nil t))))
1089 (interactive (list (if mark-active (region-beginning) (point))
1090 (if mark-active (region-end) (point))))
1098 (interactive (list (if mark-active (region-beginning) (point))
1099 (if mark-active (region-end) (point))))
1106 (interactive (list (if mark-active (region-beginning) (point))
1107 (if mark-active (region-end) (point))))
1114 (interactive (list (if mark-active (region-beginning) (point))
1115 (if mark-active (region-end) (point))))
1121 (interactive (list (if mark-active (region-beginning) (point))
1122 (if mark-active (region-end) (point))))
1161 (pos (point-marker))
1162 fp-end ; point at end of fill prefix
1163 beg ; point at beginning of line's text
1164 end ; point at end of line's text
1167 ncols ; new indent point or offset
1175 (get-text-property (point) 'hard))
1184 (setq end (point))
1192 (point) (min (point-max) (+ (length fill-prefix)
1193 (point))))))
1198 (setq fp-end (point))
1202 (setq beg (point))
1215 (point))
1216 (progn (move-to-column indent) (point)))
1220 ;; If point was at beginning of text, keep it there.
1222 (move-marker pos (point)))))
1236 (point))
1237 (progn (move-to-column indent) (point)))
1241 ;; If point was at beginning of text, keep it there.
1243 (move-marker pos (point)))))
1251 (goto-char (point-max))
1285 (canonically-space-region (point) (line-end-position)))
1294 (point) (min (point-max) (+ (length fill-prefix)
1295 (point))))))
1297 (delete-region (point) (progn (skip-chars-forward " \t")
1298 (point))))))))
1308 (if end (narrow-to-region (point-min) end))
1309 (goto-char (or begin (point-min)))
1369 (narrow-to-region (point) max)
1377 (narrow-to-region (point) max)
1389 (let ((start (point))
1441 (fill-region-as-paragraph start (point) justify)
1449 (fill-context-prefix (point) (line-beginning-position 2)))
1451 (fill-context-prefix (point) (line-beginning-position 3))))
1454 (point) (save-excursion (skip-chars-forward " \t") (point)))