From 2294380798e9fd20077905ec7f7f127feee9b185 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 1 Mar 2015 12:17:52 +0100 Subject: [PATCH] * lisp/net/shr.el (shr-insert): Remove soft hyphens. --- lisp/ChangeLog | 4 ++++ lisp/net/shr.el | 4 ++++ 2 files changed, 8 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1cfd08fc95d..c6ef7177d02 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2015-03-01 Lars Magne Ingebrigtsen + + * net/shr.el (shr-insert): Remove soft hyphens. + 2015-02-28 Eli Zaretskii * mail/rmailmm.el (rmail-mime-insert-html): Decode HTML payload diff --git a/lisp/net/shr.el b/lisp/net/shr.el index f6a390e4d0a..868af3837a9 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -512,6 +512,10 @@ size, and full-buffer size." (replace-match "" t t)) (while (re-search-forward "[ \t\n\r ]+" nil t) (replace-match " " t t)) + ;; Remove soft hyphens. + (goto-char (point-min)) + (while (search-forward "­" nil t) + (replace-match "" t t)) (goto-char (point-max))) ;; We may have removed everything we inserted if if was just ;; spaces. -- 2.39.2