Refactor out s.el usage

2017-04-17 02:18:25 -04:00 · 2017-04-17 02:18:25 -04:00 · ed2e7a65f6
commit ed2e7a65f6
parent 96e83e987f
5 changed files with 7 additions and 6 deletions
--- a/modules/lang/web/autoload/html.el
+++ b/modules/lang/web/autoload/html.el
@ -18,8 +18,9 @@ character.")
  (interactive "<!><r>")
  (mapc (lambda (rep)
          (let ((from (elt rep (if decode-p 0 1)))
-                (to   (elt rep (if decode-p 1 0))))
-            (when (s-contains-p from text)
+                (to   (elt rep (if decode-p 1 0)))
+                (case-fold-search t))
+            (when (string-match-p (regexp-quote from) text)
              (setq text (s-replace from to text)))))
        +web-entities-list)
    text)