Re: line-space (was: 画面のゴミ)

[YAGI Tatsuya <yagi@xxxxxxxxxxxxxxx>]

矢木です。

弓岡 也守輝 (YUMIOKA Yasuteru) <te-kun@xxxxxxxxxxxxxx> writes:
>(setq default-frame-alist
>   (append 
>
>--省略--
>        (line-space            . "2")   ;(*1)
>  default-frame-alist))
>
>(*1) という存在を知ったのですが、
>
>(Meadow-version)
>"Meadow-1.13 Beta2 (UKIHASHI:61)"
>では、使えないのでしょうか。
>
>source に patch を当てないとダメですか。

line-space はパッチを当てないと使えないはずです。
Meadow に対してフォントの高さを指定してしまえば良いので、
こんな感じで良いと思います。

(let* ((line-space 1)
       (fontset (frame-parameter nil 'font))
       (info (fontset-info fontset))
       (font (nth 1 (assq 'ascii (aref info 2))))
       (alis (w32-get-font-info font))
       (old-height (aref info 1))
       (new-height (+ old-height line-space)))
  (setcdr (assq 'height alis) new-height)
  (w32-change-font-attribute font alis)
  (set-fontset-font fontset 'ascii font))

おわり