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

11
lisp/net/dictionary.el
View file

@ -216,9 +216,6 @@ is utf-8"
))) )))
:version "28.1") :version "28.1")
(if (fboundp 'defface)
(progn
(defface dictionary-word-definition-face (defface dictionary-word-definition-face
'((((supports (:family "DejaVu Serif"))) '((((supports (:family "DejaVu Serif")))
(:family "DejaVu Serif")) (:family "DejaVu Serif"))
@ -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
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;