[Emacs-diffs] trunk r113036: * lisp/gnus/shr.el (libxml-parse-html-region): Declare.

[Glenn Morris]

------------------------------------------------------------
revno: 113036
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2013-06-18 00:10:56 -0700
message:
  * lisp/gnus/shr.el (libxml-parse-html-region): Declare.
  (shr-render-buffer): Explicit error if no libxml2 support.
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/shr.el               shr.el-20101002102929-yfzewk55rsg0mn93-1

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-06-17 23:35:46 +0000
+++ b/lisp/gnus/ChangeLog       2013-06-18 07:10:56 +0000
@@ -1,3 +1,8 @@
+2013-06-18  Glenn Morris  <address@hidden>
+
+       * shr.el (libxml-parse-html-region): Declare.
+       (shr-render-buffer): Explicit error if no libxml2 support.
+
 2013-06-17  Teodor Zlatanov  <address@hidden>
 
        * auth-source.el (auth-source-current-line): New function.

=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el  2013-06-17 22:06:27 +0000
+++ b/lisp/gnus/shr.el  2013-06-18 07:10:56 +0000
@@ -142,10 +142,14 @@
     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