
(defun d-fonts--init-screen-dimensions ()
  (interactive)

  (if emacs-dialect--xemacs-p
      (progn
        ;;(set-default-font "-b&h-lucidatypewriter-bold-r-normal-sans-0-0-100-100-m-0-iso8859-1")
        ;;(set-frame-position (car (frame-list)) 15 15)
        ;;(set-frame-width (car (frame-list)) 120)
        ;;(set-frame-height (car (frame-list)) 45)
        ))

  (if (and (or os-type--mswindows-p emacs-dialect--gnuemacs-p) (or (string= emacs-version "21.3.1")
                                                                   (string= emacs-version "23.1.1")
                                                                   (string= emacs-version "24.3.1")))
      (progn
        ;;(set-default-font "8x13")
        ;;(set-default-font "-*-Courier-normal-r-*-*-13-97-96-96-c-*-iso8859-1")
        ;;(set-default-font "-*-Terminal-normal-r-*-*-16-120-96-96-c-*-ms-oem")
        ;;(set-default-font   "-*-Terminal-normal-r-*-*-18-135-96-96-c-100-ms-oem") ;;; BIG MS!
        ;;(set-frame-position (caadr (current-frame-configuration)) 0 0)
        ;;(set-frame-size     (caadr (current-frame-configuration)) 100 38)
        ;;(set-default-font "-adobe-courier-bold-r-normal--20-140-100-100-m-110-iso8859-1") ;;; GOOD
        ;;(set-frame-font "-adobe-courier-medium-r-normal--*-80-*-*-m-*-iso8859-1")
        (set-frame-position (selected-frame) 0 0)
        (set-frame-size (caadr (current-frame-configuration)) 80 25)
        ;; (set-frame-font "-schumacher-clean-medium-r-normal--8-*-*-*-c-50-iso8859-1")
        ;; x-fixed-font-alist
        ;;(set-default-font "Courier New-13")
        ))

  (if (and emacs-dialect--gnuemacs-p (not os-type--mswindows-p))
      (progn
        ;;(set-frame-font "Monospace 15" nil t)
        ;;(set-default-font "-unknown-Ume Mincho-normal-normal-normal-*-20-*-*-*-d-0-fontset-auto5")
        ;;(set-default-font "-*-courier new-normal-r-*-*-17-*-*-*-c-*-fontset-standard")
        ;;(set-default-font "Courier New-18")
        ;;(d-recenter)
        ;;(set-default-font "-*-courier new-normal-r-*-*-22-*-*-*-c-*-fontset-standard")
        ;;(set-default-font "8x13")
        )
    )

  (if (or os-type--linux-p os-type--windows-p)
      (condition-case err
          (progn
            (set-frame-position (selected-frame) 0 0)
            ;;(set-frame-size (caadr (current-frame-configuration)) 146 42)
            ;;(error "schmu")
            ;;(set-frame-font "-adobe-courier-medium-r-normal--20-140-100-100-m-110-iso8859-9")
            )

        (error "error=%s" (cdr err)))
    )

  (d-quote
      (progn
        (set-frame-size (selected-frame) 140 (if emacs-dialect--xemacs-p 45 50))
        (set-frame-position (selected-frame) 0 0)))
  )

(d-fonts--init-screen-dimensions)

(provide 'd-fonts)
;;; d-fonts.el ends here
