[Emacs-diffs] master 2294380: * lisp/net/shr.el (shr-insert): Remove soft hyphens.

[Lars Ingebrigtsen]

branch: master
commit 2294380798e9fd20077905ec7f7f127feee9b185
Author: Lars Magne Ingebrigtsen <address@hidden>
Commit: Lars Magne Ingebrigtsen <address@hidden>

    * lisp/net/shr.el (shr-insert): Remove soft hyphens.
---
 lisp/ChangeLog  |    4 ++++
 lisp/net/shr.el |    4 ++++
 2 files changed, 8 insertions(+), 0 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1cfd08f..c6ef717 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2015-03-01  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * net/shr.el (shr-insert): Remove soft hyphens.
+
 2015-02-28  Eli Zaretskii  <address@hidden>
 
        * mail/rmailmm.el (rmail-mime-insert-html): Decode HTML payload
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index f6a390e..868af38 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.