レス数が1000を超えています。残念ながら全部は表示しません。

Emacs part5

24 ：名無しさん＠お腹いっぱい。 ：02/05/20 00:00

>>23
長いよ。。。

(defconst machine-unix (or (eq system-type 'usg-unix-v) (eq system-type 'gnu/linux)) "UNIX")
(defconst machine-win32 (eq system-type 'windows-nt) "Win32")

;; 初期フレームの設定
(setq default-frame-alist
(let ((dwd (x-display-pixel-width))
(dht (x-display-pixel-height))
fwd fht ftop fleft ffont)
(cond
(machine-unix
(cond
((and (equal dwd 1280) (equal dht 1024))
(setq fwd 146 fht 75 ftop 10 fleft 63 ffont "7x14"))
((and (equal dwd 1024) (equal dht 768))
(setq fwd 139 fht 50 ftop 5 fleft 0 ffont "fontset-small"))
(t
(setq fwd 80 fht 40 ftop 0 fleft 0))))
(machine-win32
(cond
((and (equal dwd 1280) (equal dht 1024))
(setq fwd 146 fht 69 ftop 0 fleft 170))
((and (equal dwd 1152) (equal dht 864))
(setq fwd 145 fht 51 ftop 50 fleft 60))
((and (equal dwd 1024) (equal dht 768))
(setq fwd 142 fht 51 ftop 0 fleft 0))
(t
(setq fwd 80 fht 40 ftop 0 fleft 0)))
(setq ffont "shinonome14-fontset")))
`(
;; フレーム横幅(文字数)
(width . ,fwd)
;; フレーム高さ(行数)
(height . ,fht)
;; フレーム左上角 y座標
(top . ,ftop)
;; フレーム左上角 x座標
(left . ,fleft)
;; フォント
(font . ,ffont)
(ime-font . "default-japanese-jisx0208")
;; 背景色
(background-color . "gray80")
;; 文字色
(foreground-color . "black")
;; カーソル色
(cursor-color . "Firebrick")
;; スクロールバーを右側に表示
(vertical-scroll-bars . right)
;; メニューバー非表示
(menu-bar-lines . nil)
,@default-frame-alist)))

read.cgi ver5.26+ (01/10/21-)