equal
deleted
inserted
replaced
56 (fx (frame-char-width)) |
56 (fx (frame-char-width)) |
57 (fy (frame-char-height)) |
57 (fy (frame-char-height)) |
58 tx ty |
58 tx ty |
59 ) |
59 ) |
60 ;; Next formulas discovered empiric on Windows host with default font. |
60 ;; Next formulas discovered empiric on Windows host with default font. |
61 (setq tx (- (/ px fx) 6)) |
61 (setq tx (- (/ px fx) 7)) |
62 (setq ty (- (/ py fy) 4)) |
62 (setq ty (- (/ py fy) 4)) |
63 (setq initial-frame-alist '((top . 0) (left . 0))) |
63 (setq initial-frame-alist '((top . 0) (left . 0))) |
64 (add-to-list 'initial-frame-alist (cons 'width tx)) |
64 (add-to-list 'initial-frame-alist (cons 'width tx)) |
65 (add-to-list 'initial-frame-alist (cons 'height ty)) |
65 (add-to-list 'initial-frame-alist (cons 'height ty)) |
66 ) ) |
66 ) ) |