如何定义函数来嵌入after-make-frame-functions

Emacs-Lisp
5 
(defun foo (y)
(add-hook 'after-make-frame-functions
    `(lambda (frame)
        (select-frame frame)
        (when (display-graphic-p frame)
            (load-theme ,y t)))))

这样？