|
@@ -271,8 +271,7 @@ have been saved."
|
|
|
(defun org-feed-unescape (s)
|
|
|
"Unescape protected entities in S."
|
|
|
(let ((re (concat "&\\("
|
|
|
- (mapconcat (lambda (e)
|
|
|
- (car e)) xml-entity-alist "\\|")
|
|
|
+ (mapconcat 'car xml-entity-alist "\\|")
|
|
|
"\\);")))
|
|
|
(while (string-match re s)
|
|
|
(setq s (replace-match
|