diff options
| author | Basil L. Contovounesios <contovob@tcd.ie> | 2018-04-17 21:42:04 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2018-04-17 21:42:04 +0200 |
| commit | 3dfec182d25ed438dc6d4a91f4201e2f7e0c99ec (patch) | |
| tree | 9ddb618acb52545337b3a3a5e1b82b895560f82d | |
| parent | c99ba231602a40792317976149500120c4959d1c (diff) | |
| download | emacs-3dfec182d25ed438dc6d4a91f4201e2f7e0c99ec.tar.gz emacs-3dfec182d25ed438dc6d4a91f4201e2f7e0c99ec.tar.bz2 emacs-3dfec182d25ed438dc6d4a91f4201e2f7e0c99ec.zip | |
Modernise face specs and set version tags in eww/shr
* 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'.
| -rw-r--r-- | lisp/net/eww.el | 12 | ||||
| -rw-r--r-- | lisp/net/shr.el | 6 |
2 files changed, 9 insertions, 9 deletions
diff --git a/lisp/net/eww.el b/lisp/net/eww.el index f7371896120..e74f661ac75 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -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) diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 0fc7ccf9582..ca70c5c656c 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -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) |