Lines Matching +defs:line +defs:move
41 (defvar indent-line-function 'indent-relative
42 "Function to indent the current line.
51 If t, hitting TAB always just indents the current line.
52 If nil, hitting TAB indents the current line if point is at the left margin
53 or in the line's indentation, otherwise it insert a \"real\" TAB character.
60 "Indent line in proper way for current major mode.
61 The buffer-local variable `indent-line-function' determines how to do this,
65 (if (memq indent-line-function
70 (beginning-of-line)
72 (beginning-of-line)
75 (indent-line-to column)
76 (save-excursion (indent-line-to column))))
78 (funcall indent-line-function)))
81 "Indent line in proper way for current major mode or insert a tab.
83 If initial point was within line's indentation, position after
86 `indent-line-function'."
91 (eq indent-line-function 'indent-to-left-margin)
98 ((memq indent-line-function '(indent-relative indent-relative-maybe))
99 (funcall indent-line-function))
121 (or (bolp) (forward-line 1))
131 (forward-line 1))
132 (move-marker end nil)))
134 (defun indent-line-to (column)
135 "Indent current line to COLUMN.
136 This function removes or adds spaces and tabs at beginning of line
146 (delete-region (progn (move-to-column column t) (point))
150 "Return the left margin to use for this line.
152 of the `left-margin' text-property at the start of the line."
161 (defun move-to-left-margin (&optional n force)
162 "Move to the left margin of the current line.
163 With optional argument, move forward N-1 lines first.
165 If the line's indentation appears to be wrong, and this command is called
168 (beginning-of-line n)
171 (if (save-excursion (beginning-of-line) (bobp))
173 (beginning-of-line))
177 (if (> (move-to-column lm force) lm)
178 ;; If lm is in a tab and we are not forcing, move before tab
183 ;; This used to be the default indent-line-function,
186 "Indent current line to the column given by `current-left-margin'."
187 (indent-line-to (current-left-margin)))
198 (or (bolp) (forward-line 1))
200 (delete-region (point) (progn (move-to-left-margin nil t) (point)))
201 (forward-line 1))
202 (move-marker to nil)))
225 (move-marker to nil))
273 (move-marker to nil))
311 (defun beginning-of-line-text (&optional n)
312 "Move to the beginning of the text on this line.
313 With optional argument, move forward N-1 lines first.
314 From the beginning of the line, moves past the left-margin indentation, the
316 line, but does not move past any whitespace that was explicitly inserted
317 \(such as a tab used to indent the first line of a paragraph)."
319 (beginning-of-line n)
337 A value of nil means really run `indent-according-to-mode' on each line.")
340 "Indent each nonblank line in the region.
341 A numeric prefix argument specifies a column: indent each line to that column.
347 beginning of each line in the region that does not already begin
351 3) Indent each line as specified by the variable `indent-line-function'.
368 (forward-line 1))))
376 (funcall indent-line-function))
377 (forward-line 1))
378 (move-marker end nil))))
384 (or (bolp) (forward-line 1))
389 (forward-line 1))
390 (move-marker end nil))))
393 "Indent a new line like previous nonblank line.
394 If the previous nonblank line has no indent points beyond the
402 "Space out to under next indent point in previous nonblank line.
404 The following line shows the indentation points in this line.
406 If the previous nonblank line has no indent points beyond the
419 (beginning-of-line)
421 (let ((end (save-excursion (forward-line 1) (point))))
422 (move-to-column start-column)
423 ;; Is start-column inside a tab on this line?
436 (move-marker opoint nil))
495 (end-of-line)
519 (defun move-to-tab-stop ()
529 (move-to-column (car tabs) t)