Commit caadec43 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(indent-to-left-margin): If point's in the indentation,

move to the end of the indentation.
parent 8c89fb87
......@@ -184,7 +184,12 @@ interactively or with optional argument FORCE, it will be fixed."
;; used in Fundamental Mode, Text Mode, etc.
(defun indent-to-left-margin ()
"Indent current line to the column given by `current-left-margin'."
(indent-line-to (current-left-margin)))
(save-excursion (indent-line-to (current-left-margin)))
;; If we are within the indentation, move past it.
(when (save-excursion
(skip-chars-backward " \t")
(bolp))
(skip-chars-forward " \t")))
(defun delete-to-left-margin (&optional from to)
"Remove left margin indentation from a region.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment