mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

Modernise face specs and set version tags in eww/shr

Browse Source 
* lisp/net/shr.el (shr-strike-through, shr-link, shr-selected-link):
Set :version tag (bug#31200).

* lisp/net/eww.el (eww-form-text, eww-form-textarea):
* lisp/net/shr.el (shr-strike-through, shr-link, shr-selected-link):
Use (DISPLAY . PLIST) face spec syntax as recommended in
'(elisp) Defining Faces'.
This commit is contained in:
Basil L. Contovounesios 2018-04-17 21:42:04 +02:00 committed by Lars Ingebrigtsen
parent c99ba23160
commit 3dfec182d2
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/net/eww.el
View File

@ -186,17 +186,17 @@ See also `eww-form-checkbox-selected-symbol'."
:group 'eww)
(defface eww-form-text
'((t (:background "#505050"
:foreground "white"
:box (:line-width 1))))
'((t :background "#505050"
:foreground "white"
:box (:line-width 1)))
"Face for eww text inputs."
:version "24.4"
:group 'eww)
(defface eww-form-textarea
'((t (:background "#C0C0C0"
:foreground "black"
:box (:line-width 1))))
'((t :background "#C0C0C0"
:foreground "black"
:box (:line-width 1)))
"Face for eww textarea inputs."
:version "24.4"
:group 'eww)

6
lisp/net/shr.el
View File

@ -135,17 +135,17 @@ cid: URL as the argument.")
(defvar shr-put-image-function 'shr-put-image
"Function called to put image and alt string.")
(defface shr-strike-through '((t (:strike-through t)))
(defface shr-strike-through '((t :strike-through t))
"Font for <s> elements."
:group 'shr)
(defface shr-link
'((t (:inherit link)))
'((t :inherit link))
"Font for link elements."
:group 'shr)
(defface shr-selected-link
'((t (:inherit shr-link :background "red")))
'((t :inherit shr-link :background "red"))
"Font for link elements."
:group 'shr)