From: ggxx@sdf.org   
      
   Here's something I use as an alternative to `M-x menu-set-font`.   
   It has an external dependency on fc-list, so it'll probably   
   work for the Linux and *BSD people.   
      
   (defun i/set-frame-font (&optional font size)   
     "Set the FONT and SIZE for the current frame."   
     (interactive (list   
   		(completing-read   
   		 "font: " (process-lines "fc-list" "--format=%{family[0]}\n"))   
   		(completing-read   
   		 "size: " (mapcar (lambda (n) (format "%d" n)) (number-sequence 12 22 2)))))   
     (set-frame-font (concat font " " size)   
                     nil   
                     (pcase current-prefix-arg   
                       (`nil nil) ; default: modify current frame only   
                       (`(4) t))  ; C-u    : modify all frames   
                     ))   
      
   --   
   It comes with the kitchen sink!   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)