Lines Matching +defs:text +defs:properties +defs:at
13 ;; the Free Software Foundation; either version 2, or (at your option)
28 ;; All the commands for filling text. These are documented in the Emacs
34 "Indenting and filling text."
64 placed at the beginning or end of a line by filling.
86 "*Non-nil means determine a paragraph's fill prefix from its text."
95 "*Regexp to match text at start of line that constitutes indentation.
109 finds the prefix at the beginning of the line, if it doesn't
131 but can be locally modified by the `right-margin' text property, which is
134 The fill column to use for a line is the first column at which the column
142 ;; Look separately at each region of line with a different
144 (while (and (setq margin (get-text-property here 'right-margin)
146 change (text-property-not-all
157 Leave one space between words, two at end of sentences or after colons
162 ;; Ideally, we'd want to scan the text from the end, so that changes to
163 ;; text don't affect the boundary, but the regexp we match against does
219 (and adaptive-fill-regexp (looking-at adaptive-fill-regexp)
220 (match-string-no-properties 0)))))
227 "Compute a fill prefix from the text between FROM and TO.
247 ;; ((looking-at paragraph-start) nil)
254 (cond ((looking-at paragraph-start) nil) ;Can it happen? -Stef
295 ;; of a paragraph when text follows it.
304 (or (looking-at (concat "[ \t]*\\sw+" "\\(?:" (sentence-end) "\\)[ \t]*$"))
310 (looking-at (sentence-end))))))
313 "Return nil if French style allows breaking the line at point.
317 at such places, which would normally allow breaking the line at those
319 (or (looking-at "[ \t]*[])},A;,b;(B?!;:-]")
324 (or (looking-at "[([{,A+,b+(B]")
331 The predicates are called with no arguments, with point at the place to
338 "Non-nil means that fill commands do not break lines in invisible text."
343 "Return nil if breaking the line at point is allowed.
352 ;; The reason is that if a period ends up at the end of a
355 ;; it at the end of the line.
360 (looking-at " \\([^ ]\\|$\\)"))))
365 (not (progn (forward-char -1) (looking-at (sentence-end))))))
370 ;; If this break point is at the end of the line,
374 (looking-at paragraph-start))))
426 (if (looking-at fpre)
430 (if (looking-at fpre)
438 (add-to-list 'text-property-default-nonsticky '(fill-space . t))
442 ;; Make sure sentences ending at end of line get an extra space.
464 ;; at the character. And, charset property
469 ;; character preceding a newline has text property
472 (if (get-text-property (match-beginning 0) 'fill-space)
473 (replace-match (get-text-property (match-beginning 0) 'fill-space))
480 (get-text-property (1- (match-beginning 0))
502 ;; at. We break the line between word or after/before
506 ;; the point at linebeg.
509 ;; In case of space, we place the point at next to
513 ;; point is at the place where the break occurs.
523 ;; keep at least one word or a character which has
526 ;; Ok, skip at least one word or one \c| character.
527 ;; Meanwhile, don't stop at a period followed by one space.
535 (if (looking-at "\\c|")
555 ;; Like text-properties-at but don't include `composition' property.
556 (defun fill-text-properties-at (pos)
557 (let ((l (text-properties-at pos))
571 ;; Give newline the properties of the space(s) it replaces
572 (set-text-properties (1- (point)) (point)
573 (fill-text-properties-at (point)))
574 (and (looking-at "\\( [ \t]*\\)\\(\\c|\\)?")
580 (put-text-property (1- (point)) (point) 'fill-space (match-string 1)))
581 ;; If we don't want breaks in invisible text, don't insert
584 (remove-text-properties (1- (point)) (point)
592 ;; Markers that were after the whitespace are now at point: insert
600 (put-text-property beg (point) 'face 'default)))
605 It removes any paragraph breaks in the region and extra newlines at the end,
609 It leaves point at the beginning of the line following the paragraph.
633 ;; Ignore blank lines at beginning of region.
647 ;; Delete all but one soft newline at end of region.
653 (get-text-property (1- (point)) 'hard))))
658 ;; ;; If there was no newline, and there is text in the paragraph, then
694 (remove-list-of-text-properties from to '(hard)))
695 ;; Make sure first line is indented (at least) to left margin...
703 ;; FROM, and point, are now before the text to fill,
741 "If point is inside the string PREFIX at the beginning of line, move past it."
746 (looking-at (regexp-quote prefix))))
756 "Fill paragraph at or after point.
792 ;; If it all fails, default to the good ol' text paragraph filling.
807 ;; a paragraph (and not skipping any chars at EOB would not count
811 ;; There's no paragraph at or after point: give up.
832 ;; Figure out what kind of comment we are looking at.
855 ;; at bol), so check that comment-start-skip indeed allows the
886 (looking-at comment-re)))
893 (looking-at comment-re))
899 (looking-at comment-re)))
904 ;; the values to use for plain text.
912 ;; We used to rely on fill-prefix to break paragraph at
946 (if (looking-at fill-prefix)
960 paragraph as specified by its text properties.
988 ;; If using hard newlines, break at every one for filling
992 (while (and (setq end (text-property-any (point) max
1013 "*Method of justifying text not otherwise specified.
1016 The `justification' text-property can locally override this variable."
1027 This returns the value of the text-property `justification',
1028 or the variable `default-justification' if there is no text-property.
1030 (let ((j (or (get-text-property
1031 ;; Make sure we're looking at paragraph body.
1046 beginning and end of the region are not at paragraph breaks, they are
1083 (put-text-property begin (point-max) 'justification style)
1095 This means they are flush at the left margin and ragged on the right.
1104 This means they are flush at the right margin and ragged on the left.
1128 ;; [Indent-1][FP][ Indent-2 ][text][trailing whitespace][newline]
1130 ;; "Indent-1" is the left-margin indentation; normally it ends at column
1135 ;; whitespace there is part of the line's text, and should not be changed.
1144 Normally does full justification: adds spaces to the line to make it end at
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
1175 (get-text-property (point) 'hard))
1179 ;; or there is no text.
1196 (looking-at adaptive-fill-regexp))
1200 ;; This is beginning of the line's text.
1220 ;; If point was at beginning of text, keep it there.
1228 (- endcol indent)) ;text width
1241 ;; If point was at beginning of text, keep it there.
1284 (beginning-of-line-text)
1319 only at paragraph-separator lines, then fills each paragraph
1345 a new paragraph. This is for text of this form:
1372 (or (looking-at "[ \t]*[^ \t\n]+:")
1373 (looking-at "[ \t]*$")))
1374 (if (looking-at "[ \t]*[^ \t\n]+:")
1385 (looking-at paragraph-separate))))
1397 (looking-at fill-prefix-regexp)))
1413 (not (looking-at paragraph-separate))
1415 (not (and (looking-at fill-prefix-regexp)
1418 (looking-at
1422 (and (looking-at fill-prefix-regexp)
1433 (or (looking-at "[ \t]")
1434 (looking-at paragraph-separate)
1435 (looking-at paragraph-start)))))
1438 (looking-at citation-regexp))))))))
1439 ;; Fill this paragraph, but don't add a newline at the end.