masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-18 18:00:11 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Don't check for existence of defface

Browse source 
* lisp/net/dictionary.el: defface has been available in Emacs for quite
some time now. No need to check it before using it.
This commit is contained in:
Torsten Hilbrich 2020-10-08 19:35:50 +02:00
parent 49c250b388
commit 99a7e918c8
1 changed files with 43 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

27
lisp/net/dictionary.el
View file

@ -216,21 +216,18 @@ is utf-8"
))) )))
:version "28.1") :version "28.1")
(if (fboundp 'defface) (defface dictionary-word-definition-face
(progn '((((supports (:family "DejaVu Serif")))
(defface dictionary-word-definition-face
'((((supports (:family "DejaVu Serif")))
(:family "DejaVu Serif")) (:family "DejaVu Serif"))
(((type x)) (((type x))
(:font "Sans Serif")) (:font "Sans Serif"))
(t (t
(:font "default"))) (:font "default")))
"The face that is used for displaying the definition of the word." "The face that is used for displaying the definition of the word."
:group 'dictionary :group 'dictionary
:version "28.1") :version "28.1")
(defface dictionary-word-entry-face (defface dictionary-word-entry-face
'((((type x)) '((((type x))
(:italic t)) (:italic t))
(((type tty) (class color)) (((type tty) (class color))
@ -241,14 +238,14 @@ is utf-8"
:group 'dictionary :group 'dictionary
:version "28.1") :version "28.1")
(defface dictionary-button-face (defface dictionary-button-face
'((t '((t
(:bold t))) (:bold t)))
"The face that is used for displaying buttons." "The face that is used for displaying buttons."
:group 'dictionary :group 'dictionary
:version "28.1") :version "28.1")
(defface dictionary-reference-face (defface dictionary-reference-face
'((((type x) '((((type x)
(class color) (class color)
(background dark)) (background dark))
@ -267,14 +264,6 @@ is utf-8"
:group 'dictionary :group 'dictionary
:version "28.1") :version "28.1")
)
;; else
(copy-face 'italic 'dictionary-word-entry-face)
(copy-face 'bold 'dictionary-button-face)
(copy-face 'default 'dictionary-reference-face)
(set-face-foreground 'dictionary-reference-face "blue"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Buffer local variables for storing the current state ;; Buffer local variables for storing the current state
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;