[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r113213: * net/shr.el (shr-render-region): New funct
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] trunk r113213: * net/shr.el (shr-render-region): New function. |
Date: |
Fri, 28 Jun 2013 07:58:03 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 113213
revision-id: address@hidden
parent: address@hidden
author: Ivan Kanis <address@hidden>
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Fri 2013-06-28 09:57:49 +0200
message:
* net/shr.el (shr-render-region): New function.
modified:
lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432
lisp/net/shr.el shr.el-20101002102929-yfzewk55rsg0mn93-1
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-06-28 07:54:42 +0000
+++ b/lisp/ChangeLog 2013-06-28 07:57:49 +0000
@@ -1,5 +1,7 @@
2013-06-28 Ivan Kanis <address@hidden>
+ * net/shr.el (shr-render-region): New function.
+
* net/eww.el: Autoload `eww-browse-url'.
2013-06-27 Dmitry Gutov <address@hidden>
=== modified file 'lisp/net/shr.el'
--- a/lisp/net/shr.el 2013-06-27 09:01:08 +0000
+++ b/lisp/net/shr.el 2013-06-28 07:57:49 +0000
@@ -166,6 +166,17 @@
(libxml-parse-html-region (point-min) (point-max))))
(goto-char (point-min)))
+(defun shr-render-region (begin end &optional buffer)
+ "Display the HTML rendering of the region between BEGIN and END."
+ (interactive "r")
+ (unless (fboundp 'libxml-parse-html-region)
+ (error "This function requires Emacs to be compiled with libxml2"))
+ (with-current-buffer (or buffer (current-buffer))
+ (let ((dom (libxml-parse-html-region begin end)))
+ (delete-region begin end)
+ (goto-char begin)
+ (shr-insert-document dom))))
+
(defun shr-visit-file (file)
"Parse FILE as an HTML document, and render it in a new buffer."
(interactive "fHTML file name: ")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r113213: * net/shr.el (shr-render-region): New function.,
Lars Ingebrigtsen <=