Fix check in `newline' for blank lines
* lisp/simple.el (newline): Clarify doc string and fix check for blank lines (bug#13810).
This commit is contained in:
parent
e8d80f1e14
commit
7a2ac61b5d
1 changed files with 2 additions and 2 deletions
|
@ -516,7 +516,7 @@ This hook is run by `delete-selection-uses-region-p', which see.")
|
|||
"Propertized string representing a hard newline character.")
|
||||
|
||||
(defun newline (&optional arg interactive)
|
||||
"Insert a newline, and move to left margin of the new line if it's blank.
|
||||
"Insert a newline, and move to left margin of the new line.
|
||||
With prefix argument ARG, insert that many newlines.
|
||||
|
||||
If `electric-indent-mode' is enabled, this indents the final new line
|
||||
|
@ -553,7 +553,7 @@ A non-nil INTERACTIVE argument means to run the `post-self-insert-hook'."
|
|||
(save-excursion
|
||||
(goto-char beforepos)
|
||||
(beginning-of-line)
|
||||
(and (looking-at "[ \t]$")
|
||||
(and (looking-at "[ \t]+$")
|
||||
(> (current-left-margin) 0)
|
||||
(delete-region (point)
|
||||
(line-end-position))))
|
||||
|
|
Loading…
Add table
Reference in a new issue