>From ce4f67f185572f260bb14abc87cf532bcfedf7b3 Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Tue, 17 Apr 2018 20:02:18 +0100 Subject: [PATCH 1/2] Modernize eww and shr face spec syntax * 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 f737189612..e74f661ac7 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -186,17 +186,17 @@ eww-form-select :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 2d913a5a92..6ce2e59840 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -135,17 +135,17 @@ shr-content-function (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.17.0