Lines Matching defs:margin
37 "*Default number of columns for margin-changing functions to indent."
52 If nil, hitting TAB indents the current line if point is at the left margin
89 ((or ;; indent-to-left-margin is only meant for indenting,
91 (eq indent-line-function 'indent-to-left-margin)
149 (defun current-left-margin ()
150 "Return the left margin to use for this line.
151 This is the value of the buffer-local variable `left-margin' plus the value
152 of the `left-margin' text-property at the start of the line."
156 (+ left-margin (or (get-text-property
159 'left-margin) 0)))))
161 (defun move-to-left-margin (&optional n force)
162 "Move to the left margin of the current line.
164 The column moved to is the one given by the `current-left-margin' function.
174 (let ((lm (current-left-margin))
181 (indent-to-left-margin))))))
185 (defun indent-to-left-margin ()
186 "Indent current line to the column given by `current-left-margin'."
187 (indent-line-to (current-left-margin)))
189 (defun delete-to-left-margin (&optional from to)
190 "Remove left margin indentation from a region.
191 This deletes to the column given by `current-left-margin'.
200 (delete-region (point) (progn (move-to-left-margin nil t) (point)))
204 (defun set-left-margin (from to width)
205 "Set the left margin of the region to WIDTH.
206 If `auto-fill-mode' is active, re-fill the region to fit the new margin.
210 (interactive "r\nNSet left margin to column: ")
220 ;; Delete margin indentation first, but keep paragraph indentation.
221 (delete-to-left-margin from to)
222 (put-text-property from to 'left-margin width)
227 (defun set-right-margin (from to width)
228 "Set the right margin of the region to WIDTH.
229 If `auto-fill-mode' is active, re-fill the region to fit the new margin.
233 (interactive "r\nNSet right margin to width: ")
238 (put-text-property from to 'right-margin width)
255 (defun increase-left-margin (from to inc)
256 "Increase or decrease the left-margin of the region.
259 to change the margin by, in characters.
260 If `auto-fill-mode' is active, re-fill the region to fit the new margin."
269 (alter-text-property from to 'left-margin
270 (lambda (v) (max (- left-margin) (+ inc (or v 0)))))
275 (defun decrease-left-margin (from to inc)
276 "Make the left margin of the region smaller.
279 to change the margin by, in characters.
280 If `auto-fill-mode' is active, re-fill the region to fit the new margin."
283 (increase-left-margin from to (- inc)))
285 (defun increase-right-margin (from to inc)
286 "Increase the right-margin of the region.
287 With no prefix argument, increase the right margin by `standard-indent'.
289 to change the margin by, in characters. A negative argument decreases
290 the right margin width.
291 If `auto-fill-mode' is active, re-fill the region to fit the new margin."
295 (alter-text-property from to 'right-margin
300 (defun decrease-right-margin (from to inc)
301 "Make the right margin of the region smaller.
302 With no prefix argument, decrease the right margin by `standard-indent'.
305 the right margin width.
306 If `auto-fill-mode' is active, re-fills region to fit in new margin."
309 (increase-right-margin from to (- inc)))
314 From the beginning of the line, moves past the left-margin indentation, the