aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArtur Malabarba <bruce.connor.am@gmail.com>2014-11-04 09:04:39 +0000
committerArtur Malabarba <bruce.connor.am@gmail.com>2014-11-04 09:04:39 +0000
commitb26e8bebb1121954e090f350cf8b17e832daccef (patch)
tree1f3cd94b5b8f77088c99780b2b1f1eef8f77c096
parent39706412e070cabe201905b9e6980a5a20aae9e0 (diff)
Descriptive comments to stack-core--decode-entities
-rw-r--r--stack-core.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/stack-core.el b/stack-core.el
index 5a90cb3..c78c316 100644
--- a/stack-core.el
+++ b/stack-core.el
@@ -342,7 +342,9 @@ context of `stack-cache-directory'."
(defun stack-core--decode-entities (string)
(let* ((plist stack-core-html-entities-plist)
(get-function (lambda (s) (let ((ss (substring s 1 -1)))
+ ;; Handle things like &quot;
(or (plist-get plist (intern ss))
+ ;; Handle things like &#39;
(format "%c" (string-to-int
(substring ss 1))))))))
(replace-regexp-in-string "&[^; ]*;" get-function string)))