[Emacs-diffs] master 3dfec18 1/2: Modernise face specs and set version tags in eww/shr

[Lars Ingebrigtsen]

branch: master
commit 3dfec182d25ed438dc6d4a91f4201e2f7e0c99ec
Author: Basil L. Contovounesios <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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'.
---
 lisp/net/eww.el | 12 ++++++------
 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 f737189..e74f661 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 0fc7ccf..ca70c5c 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)