Re: Meadow2でのフレームサイズ変更コマンド

[YOKOTA Kazuya <yokota-k@xxxxxxxxxxxxxxx>]

横田＠広島です。

先日のメールで以下のようにしてウィンドウサイズの切り替えがうまくいきま
したと報告しましたが、kill-buffer などしてなくなったバッファに切り替え
ようとする場合には、Meadowが落ちてしまうことに気付きました。

>>> Sun, 29 Jun 2003 20:24:52 +0900 (JST) の刻に 「横田」、すなわち
>>> yokota-k@xxxxxxxxxxxxxxx( YOKOTA Kazuya) 氏曰く

横田> ;;; フレームサイズをトグルで切り替え
横田> ;;;......................................................................
横田> (defun my-toggle-frame-size ()
横田>   (interactive)
横田>   (if my-frame-max-flag
横田>       (progn
横田> 	(set-frame-configuration my-last-frame-conf)
横田>  	(setq my-frame-max-flag nil)
横田>  	(message "not MAX.")(sit-for 2)
横田> 	)
横田>     (setq my-last-frame-conf (current-frame-configuration))
横田>     (set-frame-position (selected-frame) 0 0)
横田>     ;; フレーム最大化時に (frame-height) で得た値
横田>     (set-frame-height (selected-frame) 59)
横田>     ;; フレーム最大化時に (frame-width) で得た値
横田>     (set-frame-width (selected-frame) 156)
横田>     (setq my-frame-max-flag t)
横田>     (message "to MAX.")(sit-for 2)
横田>     ))

横田> (define-key global-map [(super m)] 'my-toggle-frame-size)

というわけで、以下のようにサイズを切り替えることにしました。私は十分満
足ですが、MS Windows の最大化←→元のサイズに戻すとは動作は異なり、サ
イズは決めうちです。

(defun my-toggle-frame-size ()
  (interactive)
  (if my-frame-max-flag
      (progn
	(set-frame-position (selected-frame) 0 0)
	(set-frame-height (selected-frame) 59)
	(set-frame-width (selected-frame) 77)
 	(setq my-frame-max-flag nil)
 	(message "not MAX.")(sit-for 2)
	)
    (setq my-last-frame-conf (current-frame-configuration))
    (set-frame-position (selected-frame) 0 0)
    (set-frame-height (selected-frame) 59) ;; フレーム最大化時に (frame-height) で得た値
    (set-frame-width (selected-frame) 156) ;; フレーム最大化時に (frame-width) で得た値
    (setq my-frame-max-flag t)
    (message "to MAX.")(sit-for 2)
    ))

(define-key global-map [(super m)] 'my-toggle-frame-size)

-- 
YOKOTA Kazuya/横田和也
yokota-k@xxxxxxxxxxxxxxx
http://www.venus.dti.ne.jp/~yokota-k/
明日の広島県南部は 北の風日中南西の風くもり時々晴れ です
7月31日17時 広島地方気象台発表 by http://www.jma.go.jp/