follow-modokiを仮想windowとして

使う場合。
■具体的な変更点
follow-modokiで、横に長い画面を縦に区切って、仮想的に縦長の一画面として使う場合。Windowがずれてしまう問題を直した。

;"2つのウィンドウを、 1つの『仮想ウィンドウ』としてスクロールする"ために
;画面のずれを修正するようの関数。
;1ページずらした場合に戻す機能
(defun re-follow()
  (interactive)
  (unless (minibuffer-window-p (selected-window))
	; Windowの始めの行ををチェックcurrent-window-start-line
	(let ((cwsl (get-window-start-line (selected-window)))
		  (owsl (get-window-start-line (next-window (selected-window))))
		  (tmp 1))
	  (while (/= owsl (+ cwsl (window-height)))
		(when (> owsl (+ cwsl (window-height)))
		  (setq tmp -1))
		(scroll-up-other-window tmp)
		(setq owsl (get-window-start-line (next-window (selected-window)))))
		)))

これで、ずれたら修正できるかもしれない。Windowが二つない場合はエラーになるけど。