[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 2294380: * lisp/net/shr.el (shr-insert): Remove sof
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 2294380: * lisp/net/shr.el (shr-insert): Remove soft hyphens. |
Date: |
Sun, 01 Mar 2015 11:17:57 +0000 |
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 2294380: * lisp/net/shr.el (shr-insert): Remove soft hyphens.,
Lars Ingebrigtsen <=