Commit e4dbdb09 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

shr.el: Revert change that made headings use different-sized faces. The Emacs...

shr.el: Revert change that made headings use different-sized faces.  The Emacs display engine isn't advanced enough that, for instance, tables can comfortably use differntly-sized faces.
parent 95df8112
2011-01-26 Lars Ingebrigtsen <larsi@gnus.org>
* shr.el: Revert change that made headings use different-sized faces.
The Emacs display engine isn't advanced enough that, for instance,
tables can comfortably use differntly-sized faces.
2011-01-25 Lars Ingebrigtsen <larsi@gnus.org> 2011-01-25 Lars Ingebrigtsen <larsi@gnus.org>
* nnimap.el (nnimap-open-connection-1): Store the actual stream type * nnimap.el (nnimap-open-connection-1): Store the actual stream type
......
...@@ -82,30 +82,6 @@ used." ...@@ -82,30 +82,6 @@ used."
(const :tag "Use the width of the window" nil)) (const :tag "Use the width of the window" nil))
:group 'shr) :group 'shr)
(defface shr-tag-h1 '((t (:bold t :height 2.2)))
"Face used for H1 tags."
:group 'shr)
(defface shr-tag-h2 '((t (:bold t :height 2.0)))
"Face used for H2 tags."
:group 'shr)
(defface shr-tag-h3 '((t (:bold t :height 1.8)))
"Face used for H3 tags."
:group 'shr)
(defface shr-tag-h4 '((t (:bold t :height 1.6)))
"Face used for H4 tags."
:group 'shr)
(defface shr-tag-h5 '((t (:bold t :height 1.4)))
"Face used for H5 tags."
:group 'shr)
(defface shr-tag-h6 '((t (:bold t :height 1.2)))
"Face used for H6 tags."
:group 'shr)
(defvar shr-content-function nil (defvar shr-content-function nil
"If bound, this should be a function that will return the content. "If bound, this should be a function that will return the content.
This is used for cid: URLs, and the function is called with the This is used for cid: URLs, and the function is called with the
...@@ -906,22 +882,22 @@ ones, in case fg and bg are nil." ...@@ -906,22 +882,22 @@ ones, in case fg and bg are nil."
(shr-generic cont)) (shr-generic cont))
(defun shr-tag-h1 (cont) (defun shr-tag-h1 (cont)
(shr-heading cont 'shr-tag-h1)) (shr-heading cont 'bold 'underline))
(defun shr-tag-h2 (cont) (defun shr-tag-h2 (cont)
(shr-heading cont 'shr-tag-h2)) (shr-heading cont 'bold))
(defun shr-tag-h3 (cont) (defun shr-tag-h3 (cont)
(shr-heading cont 'shr-tag-h3)) (shr-heading cont 'italic))
(defun shr-tag-h4 (cont) (defun shr-tag-h4 (cont)
(shr-heading cont 'shr-tag-h4)) (shr-heading cont))
(defun shr-tag-h5 (cont) (defun shr-tag-h5 (cont)
(shr-heading cont 'shr-tag-h5)) (shr-heading cont))
(defun shr-tag-h6 (cont) (defun shr-tag-h6 (cont)
(shr-heading cont 'shr-tag-h6)) (shr-heading cont))
(defun shr-tag-hr (cont) (defun shr-tag-hr (cont)
(shr-ensure-newline) (shr-ensure-newline)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment