diff options
| author | David Maus <dmaus@ictsoc.de> | 2010-07-07 11:22:23 +0000 |
|---|---|---|
| committer | Carsten Dominik <carsten.dominik@gmail.com> | 2010-07-07 08:46:44 +0200 |
| commit | 66eadedab3f066b8c0835e4ad7b1a0a3e31c7c5b (patch) | |
| tree | b181a395840b89027729be7a37627226e8fad4d1 | |
| parent | a11ee296f504a53c71aa04325ad2bb0dc955debc (diff) | |
| download | org-mode-66eadedab3f066b8c0835e4ad7b1a0a3e31c7c5b.tar.gz | |
Load XML library if necessary.
* org-feed.el (org-feed-unescape, org-feed-parse-atom-feed): Load XML
library if necessary.
Function that use xml.el must require 'xml to make sure it is loaded
at runtime.
| -rw-r--r-- | lisp/org-feed.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/org-feed.el b/lisp/org-feed.el index 999bfd8..e41ad97 100644 --- a/lisp/org-feed.el +++ b/lisp/org-feed.el @@ -270,6 +270,7 @@ have been saved." (defun org-feed-unescape (s) "Unescape protected entities in S." + (require 'xml) (let ((re (concat "&\\(" (mapconcat 'car xml-entity-alist "\\|") "\\);"))) @@ -630,6 +631,7 @@ containing the properties `:guid' and `:item-full-text'. The `:item-full-text' property actually contains the sexp formatted as a string, not the original XML data." + (require 'xml) (with-current-buffer buffer (widen) (let ((feed (car (xml-parse-region (point-min) (point-max))))) |