mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

97
lisp/net/dictionary.el
View File

@ -216,64 +216,53 @@ is utf-8"
)))
:version "28.1")
(if (fboundp 'defface)
(progn
(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")
(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")
(defface dictionary-word-entry-face
'((((type x))
(:italic t))
(((type tty) (class color))
(:foreground "green"))
(t
(:inverse t)))
"The face that is used for displaying the initial word entry line."
:group 'dictionary
:version "28.1")
(defface dictionary-word-entry-face
'((((type x))
(:italic t))
(((type tty) (class color))
(:foreground "green"))
(t
(:inverse t)))
"The face that is used for displaying the initial word entry line."
:group 'dictionary
:version "28.1")
(defface dictionary-button-face
'((t
(:bold t)))
"The face that is used for displaying buttons."
:group 'dictionary
:version "28.1")
(defface dictionary-button-face
'((t
(:bold t)))
"The face that is used for displaying buttons."
:group 'dictionary
:version "28.1")
(defface dictionary-reference-face
'((((type x)
(class color)
(background dark))
(:foreground "yellow"))
(((type tty)
(class color)
(background dark))
(:foreground "cyan"))
(((class color)
(background light))
(:foreground "blue"))
(t
(:underline t)))
(defface dictionary-reference-face
'((((type x)
(class color)
(background dark))
(:foreground "yellow"))
(((type tty)
(class color)
(background dark))
(:foreground "cyan"))
(((class color)
(background light))
(:foreground "blue"))
(t
(:underline t)))
"The face that is used for displaying a reference word."
: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"))
"The face that is used for displaying a reference word."
:group 'dictionary
:version "28.1")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Buffer local variables for storing the current state