[mew-dist 22938] Re: split horizon

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 22936] Re: split horizon
Message-ID: <20030121.100120.74198170.kazu at example.com>
Date: Tue, 21 Jan 2003 10:01:20 +0900 (JST)

> > 	ちょうど NetBSDを version upしたところなので、明日あさって試します。
> 
> このコードだと、Emacs 21 でしか動かないことが判明しました。後で、他の
> Emacs でも動くようにできるか検討します。

# あさのげんじつとーひ

(if (fboundp 'window-list)
    (defalias 'mew-window-list 'window-list)
  (defun mew-window-list ()
    (if (fboundp 'window-list)
	(window-list)
      (let (win wins)
	(catch 'round
	  (while t
	    (setq win (selected-window))
	    (if (memq win wins)
		(throw 'round wins)
	      (setq wins (cons win wins))
	      (select-window (next-window win)))))))))

(if mew-xemacs-p
    (defalias 'mew-window-edges 'window-pixel-edges)
  (defalias 'mew-window-edges 'window-edges))

で XEmacs, Emacs 20.7 も OK でした。

-- 
白井秀行 (mailto:shirai at example.com)