Lines Matching defs:margin
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)))
131 but can be locally modified by the `right-margin' text property, which is
135 number equals or exceeds the local fill-column - right-margin difference."
141 margin fill-col change col)
143 ;; right-margin.
144 (while (and (setq margin (get-text-property here 'right-margin)
145 fill-col (- fill-column (or margin 0))
147 here eol 'right-margin margin))
221 (if (>= (+ (current-left-margin) (length str)) (current-fill-column))
238 (move-to-left-margin)
252 (move-to-left-margin)
421 ;; (if (>= (+ (current-left-margin) (length prefix))
520 ;; If the left margin and fill prefix by themselves
568 ;; indent to left margin.
588 (fill-indent-to-left-margin)
596 (defun fill-indent-to-left-margin ()
597 "Indent current line to the column given by `current-left-margin'."
599 (indent-line-to (current-left-margin))
607 `current-left-margin' and `current-fill-column' functions.
689 (< (current-indentation) (current-left-margin)))
690 (fill-indent-to-left-margin))
695 ;; Make sure first line is indented (at least) to left margin...
697 (< (current-indentation) (current-left-margin)))
698 (fill-indent-to-left-margin))
809 (move-to-left-margin)
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.
1130 ;; "Indent-1" is the left-margin indentation; normally it ends at column
1131 ;; given by the `current-left-margin' function.
1226 (setq ncols (+ (current-left-margin)
1227 (/ (- fc (current-left-margin) ;avail. space
1278 indentation past the left margin. If the line is full-justified, it removes
1288 (move-to-left-margin nil t)
1303 past the left margin from each line. For full-justified lines, it removes
1383 (progn (move-to-left-margin)
1388 (move-to-left-margin)
1405 ;; move further to the left margin.
1406 (move-to-left-margin))