Elisp Makroları

[Volkan YAZICI]

Herkese Merhaba,

Aşağıdaki elisp makrosunu bir türlü düzeltemedim. Yardımcı olabilecek
olanımız var mı acaba?

(defun adhoc-make-font-face (face spec)
`(,face ((((class color)
(min-colors 8))
,spec))))

(defmacro adhoc-custom-set-faces (faces)
`(custom-set-faces
,@(loop for face in faces
collect (adhoc-make-font-face (first face) (second face)))))

(adhoc-custom-set-faces
'((font-lock-builtin-face (:foreground "yellow"))
(font-lock-comment-face (:foreground "red"))
(font-lock-function-name-face (:foreground "cyan"
:underline "cyan"))))


İyi çalışmalar.