From 3dfec182d25ed438dc6d4a91f4201e2f7e0c99ec Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Tue, 17 Apr 2018 21:42:04 +0200 Subject: [PATCH] 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 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 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) -- 2.39.2