* net/eww.el (libxml-parse-html-region): Declare.

(eww-display-html): Explicit error if no libxml2 support.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fd6d8f0a547bfbb736cbbede1c7744a4577dca17..96f2702f984250dde8c7fae78e950517f0a62dc0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-09-18  Glenn Morris  <rgm@gnu.org>
 
+       * net/eww.el (libxml-parse-html-region): Declare.
+       (eww-display-html): Explicit error if no libxml2 support.
+
        * doc-view.el (doc-view-mode): Silence --without-x compilation.
 
        * image.el (image-type-from-buffer, image-multi-frame-p):

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 6cf4ff2c9bf4b21a9f03054c932dca6981c4f838..e67d9c5a25c625120ede1e1412ce19ad7855abbb 100644 (file)
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -197,7 +197,12 @@ word(s) will be searched for via `eww-search-prefix'."
              "[\t\n\r ]*<\\?xml[\t\n\r ]+[^>]*encoding=\"\\([^\"]+\\)")
             (match-string 1)))))
 
+(declare-function libxml-parse-html-region "xml.c"
+                 (start end &optional base-url))
+
 (defun eww-display-html (charset url)
+  (or (fboundp 'libxml-parse-html-region)
+      (error "This function requires Emacs to be compiled with libxml2"))
   (unless (eq charset 'utf8)
     (condition-case nil
        (decode-coding-region (point) (point-max) charset)