From: Glenn Morris <rgm@gnu.org>
Date: Tue, 18 Jun 2013 07:10:56 +0000 (-0700)
Subject: * lisp/gnus/shr.el (libxml-parse-html-region): Declare.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2016^2~73^2~12
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0143b8a3b1b32510d7eec398aa4a3d02c02cba61;p=emacs.git

* lisp/gnus/shr.el (libxml-parse-html-region): Declare.
(shr-render-buffer): Explicit error if no libxml2 support.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 53db82cd5b3..7184d3e71b3 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2013-06-18  Glenn Morris  <rgm@gnu.org>
+
+	* shr.el (libxml-parse-html-region): Declare.
+	(shr-render-buffer): Explicit error if no libxml2 support.
+
 2013-06-17  Teodor Zlatanov  <tzz@lifelogs.com>
 
 	* auth-source.el (auth-source-current-line): New function.
diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index 2d0c9107fd6..06abde9e381 100644
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/shr.el
@@ -142,10 +142,14 @@ cid: URL as the argument.")
     map))
 
 ;; Public functions and commands.
+(declare-function libxml-parse-html-region "xml.c"
+		  (start end &optional base-url))
 
 (defun shr-render-buffer (buffer)
   "Display the HTML rendering of the current buffer."
   (interactive (list (current-buffer)))
+  (or (fboundp 'libxml-parse-html-region)
+      (error "This function requires Emacs to be compiled with libxml2"))
   (pop-to-buffer "*html*")
   (erase-buffer)
   (shr-insert-document