From 43203a1d75391522e4ad0b5c75af565d25774aaa Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 27 Jul 1994 20:09:22 +0000 Subject: [PATCH] (justify-current-line): Delete space at end of line. --- lisp/textmodes/fill.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 863b1e7c6e3..36cb5c6b52c 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -272,7 +272,7 @@ space does not end a sentence, so don't break a line there." (interactive) (save-excursion (save-restriction - (let (ncols beg indent) + (let (ncols beg indent end) (beginning-of-line) (forward-char (length fill-prefix)) (skip-chars-forward " \t") @@ -280,6 +280,9 @@ space does not end a sentence, so don't break a line there." (setq beg (point)) (end-of-line) (narrow-to-region beg (point)) + (setq end (point)) + (skip-chars-backward " \t") + (delete-char (- end (point))) (goto-char beg) (while (re-search-forward " *" nil t) (delete-region -- 2.39.5