                                         (set-buffer cur-buf)
                                         (funcall ,func))))))))))
 
-(defun me:set-frame-face (frame)
-  "Set font face for frame"
-  (select-frame frame)
-  (if (display-graphic-p)
-      (let* ((fonts (font-family-list))
-             (match (seq-find (lambda (elem) (member (car elem) fonts)) me:preferred-fonts)))
-        (if match
-            (let ((font-name (cdr match)))
-                                        ;(message "font name is %s" font-name)
-              (add-to-list 'default-frame-alist `(font . ,font-name))
-              (set-frame-font font-name t t))))))
-
 
 (defun me:extra-setup ()
   (tool-bar-mode 0)                                           ; no tool bar (tool-bar)

    (interactive)
    (save-some-buffers t))


  (defun me:window-nth-buffer (arg &optional prefix)
    "Select the nth other buffer. Use prefix to put in other window"

  (blink-cursor-mode -1)                                      ; don't blink cursor
  (run-at-time "1 hour" 3600 #'clean-buffer-list))            ; clear out old buffers every hour (midnight)


;; Run programming mode hooks
;; This is used for modes which should trigger programming mode hooks
