[xyzzy:08886] recenter 修正 (lisp/window.l)

[OHKUBO Hiroshi <konata_o@xxxxxxxxxxx>]

亀井さん、ML の皆さんこんにちは。
OHKUBO Hiroshi です。

TreeView 用の recenter を書いている際に、recenter 関数の
間違いに気が付きましたので報告します。

今まで recenter に負数を与えようと思ったことはないですが、
recenter 関数に負数を与えた際の挙動の修正です。

;; lisp/window.l
(defun recenter (&optional arg)
  (interactive "p")
  (save-excursion
    (scroll-window (- (get-window-line)
                      (if arg
                          (if (minusp arg)
;; 修正前
;                            (max (- (window-height) arg) 0)
;; 修正後
                             (max (+ (window-height) arg) 0)
                            (min arg (1- (window-height))))
                        (truncate (window-height) 2))))))


以上、宜しくお願いいたします。

---
OHKUBO Hiroshi
konata_o@xxxxxxxxxxx
http://members.tripod.co.jp/ohkubo/index.html