[Emacs-diffs] trunk r115296: * lisp/net/newst-reader.el (newsticker-html-renderer): Default to SHR if

[Stefan Monnier]

------------------------------------------------------------
revno: 115296
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2013-11-29 16:35:00 -0500
message:
  * lisp/net/newst-reader.el (newsticker-html-renderer): Default to SHR if
  available.  Suggested by Clément B. <address@hidden>.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/newst-reader.el       
newstreader.el-20091113204419-o5vbwnq5f7feedwu-8684

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-11-29 18:36:31 +0000
+++ b/lisp/ChangeLog    2013-11-29 21:35:00 +0000
@@ -1,5 +1,8 @@
 2013-11-29  Stefan Monnier  <address@hidden>
 
+       * net/newst-reader.el (newsticker-html-renderer): Default to SHR if
+       available.  Suggested by Clément B. <address@hidden>.
+
        * uniquify.el (uniquify-buffer-name-style): Change default.
 
        * loadup.el: Preload "uniquify".

=== modified file 'lisp/net/newst-reader.el'
--- a/lisp/net/newst-reader.el  2013-01-01 09:11:05 +0000
+++ b/lisp/net/newst-reader.el  2013-11-29 21:35:00 +0000
@@ -101,15 +101,18 @@
   :group 'newsticker-reader)
 
 (defcustom newsticker-html-renderer
-  nil
+  (if (fboundp 'libxml-parse-html-region)
+      #'shr-render-region)
   "Function for rendering HTML contents.
 If non-nil, newsticker.el will call this function whenever it
-finds HTML-like tags in item descriptions.  Possible functions
-are `w3m-region', `w3-region', and `newsticker-htmlr-render'.
+finds HTML-like tags in item descriptions.  
+Possible functions include `shr-render-region', `w3m-region', `w3-region', and
+`newsticker-htmlr-render'.
 Newsticker automatically loads the respective package w3m, w3, or
 htmlr if this option is set."
   :type '(choice :tag "Function"
                  (const :tag "None" nil)
+                 (const :tag "SHR" shr-render-region)
                  (const :tag "w3" w3-region)
                  (const :tag "w3m" w3m-region)
                  (const :tag "htmlr" newsticker-htmlr-render))