emacs颜色主题，set-fontset和font-lock的问题

Question

我使用以下内容确保使用特定字体显示lambda符号等

(set-face-attribute 'default nil :family "PragmataPro")
(set-face-attribute 'default nil :height 130)
;; over-ride "fontset-defult" for all unicode characters
(set-fontset-font "fontset-default" 'unicode "PragmataPro")

在scheme中工作时使用漂亮的lambda字体锁

(defun pretty-lambdas ()
(font-lock-add-keywords nil
    '(("(\\(lambda\\)\\>" (0 (prog1 ()
                               (compose-region (match-beginning 1)
                                               (match-end 1)
                                               ?λ)))))))

这在使用默认的emacs主题时效果很好，但如果我更改主题M-x load-theme: - λ会成为某种“东方”符号，即使λ的字符字形由面。

有什么想法吗？负载主题是否超越了某些东西？

- 编辑 -

我虽然这个问题已经解决了，但是常规的面孔现在已经很好了，但它仍然以斜体显示。