From: Basil L. Contovounesios <contovob@tcd.ie>
Date: Tue, 20 Oct 2020 16:28:26 +0000 (+0100)
Subject: Simplify syntax of shortdoc face specs
X-Git-Tag: emacs-28.0.90~5521
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec4f2723c13321f2abe6aa57035146d80b640db6;p=emacs.git

Simplify syntax of shortdoc face specs

* lisp/emacs-lisp/shortdoc.el: Remove unused dependency.
(shortdoc-section, shortdoc-example): Use newer (DISPLAY . PLIST)
face spec syntax.
---

diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
index f6309c7652e..7ae6d53a21b 100644
--- a/lisp/emacs-lisp/shortdoc.el
+++ b/lisp/emacs-lisp/shortdoc.el
@@ -24,7 +24,6 @@
 
 ;;; Code:
 
-(require 'macroexp)
 (require 'seq)
 (eval-when-compile (require 'cl-lib))
 
@@ -34,18 +33,16 @@
 
 (defface shortdoc-section
   '((((class color) (background dark))
-     (:inherit variable-pitch
-               :background "#303030" :extend t))
+     :inherit variable-pitch :background "#303030" :extend t)
     (((class color) (background light))
-     (:inherit variable-pitch
-               :background "#f0f0f0" :extend t)))
+     :inherit variable-pitch :background "#f0f0f0" :extend t))
   "Face used for a section.")
 
 (defface shortdoc-example
   '((((class color) (background dark))
-     (:background "#202020" :extend t))
+     :background "#202020" :extend t)
     (((class color) (background light))
-     (:background "#e8e8e8" :extend t)))
+     :background "#e8e8e8" :extend t))
   "Face used for examples.")
 
 (defvar shortdoc--groups nil)