mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-06 11:55:48 +00:00
* net/eww.el (libxml-parse-html-region): Declare.
(eww-display-html): Explicit error if no libxml2 support.
This commit is contained in:
parent
45069b2e00
commit
5148da153e
@ -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):
|
||||
|
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user