Fix <h1> and <tt> rendering

(shr-tag-h1): Don't use variable-pitch fonts on fontless rendering.
(shr-tag-tt): New function.

2 files changed, 9 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d8cb245cbeb..c4c329ef5ce 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -32,6 +32,8 @@
         (shr-pixel-buffer-width): New function.
         (shr-render-td): Add a caching layer.
         (shr-dom-max-natural-width): New function.
+        (shr-tag-h1): Don't use variable-pitch fonts on fontless rendering.
+        (shr-tag-tt): New function.
 
 2015-02-10  Fabián Ezequiel Gallina  <fgallina@gnu.org>
 
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 06a75a46bf2..e929f48b5fd 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1168,6 +1168,10 @@ ones, in case fg and bg are nil."
 (defun shr-tag-u (dom)
   (shr-fontize-dom dom 'underline))
 
+(defun shr-tag-tt (dom)
+  (let ((shr-current-font 'default))
+    (shr-generic dom)))
+
 (defun shr-parse-style (style)
   (when style
     (save-match-data
@@ -1451,7 +1455,9 @@ The preference is a float determined from `shr-prefer-media-type'."
   (shr-generic dom))
 
 (defun shr-tag-h1 (dom)
-  (shr-heading dom '(variable-pitch (:height 1.3 :weight bold))))
+  (shr-heading dom (if shr-use-fonts
+                       '(variable-pitch (:height 1.3 :weight bold))
+                     'bold)))
 
 (defun shr-tag-h2 (dom)
   (shr-heading dom 'bold))