Commit 739e92a7 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(mouse-drag-mode-line-1): Fix an off-by-one error in

computing growth when dragging the header line.
parent 8be7408c
2000-10-08 Eli Zaretskii <eliz@is.elta.co.il>
* mouse.el (mouse-drag-mode-line-1): Fix an off-by-one error in
computing growth when dragging the header line.
2000-10-08 Eli Zaretskii <eliz@is.elta.co.il>
* simple.el (kill-line): Doc fix.
......
......@@ -380,10 +380,11 @@ MODE-LINE-P non-nil means a mode line is dragged."
(when (< (- y top -1) window-min-height)
(setq y (+ top window-min-height -1)))
(setq growth (- y bot -1)))
(t
(when (< (- bot y -1) window-min-height)
(setq y (- bot window-min-height -1)))
(setq growth (- top y -1))))
(t ; header line
(when (< (- bot y) window-min-height)
(setq y (- bot window-min-height)))
;; The window's top includes the header line!
(setq growth (- top y))))
(setq wconfig (current-window-configuration))
;; Check for an error case.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment