procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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.

Browse source
This commit is contained in:
Lars Ingebrigtsen 2011-01-26 10:25:18 +00:00 • committed by Katsumi Yamaoka
parent 95df8112a0
commit e4dbdb0992
2 changed files with 12 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/ChangeLog
View file

@ -1,3 +1,9 @@
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>
* nnimap.el (nnimap-open-connection-1): Store the actual stream type

36
lisp/gnus/shr.el
View file

@ -82,30 +82,6 @@ used."
(const :tag "Use the width of the window" nil))
: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
"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
@ -906,22 +882,22 @@ ones, in case fg and bg are nil."
(shr-generic cont))
(defun shr-tag-h1 (cont)
(shr-heading cont 'shr-tag-h1))
(shr-heading cont 'bold 'underline))
(defun shr-tag-h2 (cont)
(shr-heading cont 'shr-tag-h2))
(shr-heading cont 'bold))
(defun shr-tag-h3 (cont)
(shr-heading cont 'shr-tag-h3))
(shr-heading cont 'italic))
(defun shr-tag-h4 (cont)
(shr-heading cont 'shr-tag-h4))
(shr-heading cont))
(defun shr-tag-h5 (cont)
(shr-heading cont 'shr-tag-h5))
(shr-heading cont))
(defun shr-tag-h6 (cont)
(shr-heading cont 'shr-tag-h6))
(shr-heading cont))
(defun shr-tag-hr (cont)
(shr-ensure-newline)