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

(justify-current-line): Delete space at end of line.

parent f4a0f59b
...@@ -272,7 +272,7 @@ space does not end a sentence, so don't break a line there." ...@@ -272,7 +272,7 @@ space does not end a sentence, so don't break a line there."
(interactive) (interactive)
(save-excursion (save-excursion
(save-restriction (save-restriction
(let (ncols beg indent) (let (ncols beg indent end)
(beginning-of-line) (beginning-of-line)
(forward-char (length fill-prefix)) (forward-char (length fill-prefix))
(skip-chars-forward " \t") (skip-chars-forward " \t")
...@@ -280,6 +280,9 @@ space does not end a sentence, so don't break a line there." ...@@ -280,6 +280,9 @@ space does not end a sentence, so don't break a line there."
(setq beg (point)) (setq beg (point))
(end-of-line) (end-of-line)
(narrow-to-region beg (point)) (narrow-to-region beg (point))
(setq end (point))
(skip-chars-backward " \t")
(delete-char (- end (point)))
(goto-char beg) (goto-char beg)
(while (re-search-forward " *" nil t) (while (re-search-forward " *" nil t)
(delete-region (delete-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