diff --git a/.emacs.d/core.el b/.emacs.d/core.el
index 12ac7ed..9bd248c 100644
--- a/.emacs.d/core.el
+++ b/.emacs.d/core.el
@@ -165,7 +165,7 @@
 ;;
 (require 'cl)
 (if (display-graphic-p)
-    (progn
+    (let ((my-font-choice) (jd-frame-height))
       ;; Consolas. (And, to a lesser extent, Inconsolata.)
       ;;
       (defun font-candidate (&rest fonts)