diff options
| -rw-r--r-- | dictionary.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/dictionary.el b/dictionary.el index fa23546..6c00682 100644 --- a/dictionary.el +++ b/dictionary.el @@ -219,6 +219,16 @@ by the choice value: (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) + (defface dictionary-word-entry-face '((((type x)) (:italic t)) @@ -780,6 +790,7 @@ This function knows about the special meaning of quotes (\")" (let ((start (point))) (insert (dictionary-decode-charset reply dictionary)) (insert "\n\n") + (put-text-property start (point) 'face 'dictionary-word-definition-face) (let ((regexp "\\({+\\)\\([^ '\"][^}]*\\)\\(}+\\)")) (goto-char start) (while (< (point) (point-max)) |