From 824aa833dd8d20a6b2cc5bc7f6596b558769113f Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 4 Oct 2010 19:17:19 +0200 Subject: [PATCH] Don't insert a new newline after empty-ish lines. --- lisp/ChangeLog | 2 ++ lisp/shr.el | 4 +++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6bc70bf51..0ac2c8fb4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,8 @@ 2010-10-04 Lars Magne Ingebrigtsen * shr.el (browse-url): Required. + (shr-ensure-paragraph): Don't insert a new newline after empty-ish + lines. * gnus-sum.el (gnus-widen-article-window): New variable. (gnus-summary-select-article-buffer): Use it. diff --git a/lisp/shr.el b/lisp/shr.el index 587587cd8..4b5d2fb42 100644 --- a/lisp/shr.el +++ b/lisp/shr.el @@ -99,7 +99,9 @@ fit these criteria." (defun shr-ensure-paragraph () (unless (bobp) (if (bolp) - (unless (eql (char-after (- (point) 2)) ?\n) + (unless (save-excursion + (forward-line -1) + (looking-at " *$")) (insert "\n")) (if (save-excursion (beginning-of-line) -- 2.25.1