popwin.elの管理対象にさせようとおもって、 (push '("*Moccur*" :height 20 :width 80 :position right) popwin:special-display-config) なんて設定を描いてみたところ、実行結果をたどる度にウィンドウ分割が実行しまくってなかなかカオスな状況に・・・ …

で、まぁ、popwin:special-display-configのwidthを、フレームの半分のサイズにしたいなぁ・・・とか思ったわけですよ。 そんなわけで、安易に (defun half-frame-size () "(/ frame-width 2)" (/ (frame-width nil) 2)) なんて、半分のサイズを取得する関数…