procyberian/emacs
1
0
Fork 0
Code Issues Pull requests 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")
(if (fboundp 'defface)
(progn
(defface dictionary-word-definition-face
'((((supports (:family "DejaVu Serif")))
(defface dictionary-word-definition-face
'((((supports (:family "DejaVu Serif")))
(:family "DejaVu Serif"))
(((type x))
(:font "Sans Serif"))
(t
(:font "default")))
"The face that is used for displaying the definition of the word."
:group 'dictionary
:version "28.1")
"The face that is used for displaying the definition of the word."
:group 'dictionary
:version "28.1")
(defface dictionary-word-entry-face
(defface dictionary-word-entry-face
'((((type x))
(:italic t))
(((type tty) (class color))
@ -241,14 +238,14 @@ is utf-8"
:group 'dictionary
:version "28.1")
(defface dictionary-button-face
(defface dictionary-button-face
'((t
(:bold t)))
"The face that is used for displaying buttons."
:group 'dictionary
:version "28.1")
(defface dictionary-reference-face
(defface dictionary-reference-face
'((((type x)
(class color)
(background dark))
@ -267,14 +264,6 @@ is utf-8"
:group 'dictionary
: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
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;