Mercurial > emacs
changeset 32269:5bccbf00889a
(mouse-drag-mode-line-1): Fix an off-by-one error in
computing growth when dragging the header line.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 08 Oct 2000 06:15:01 +0000 |
| parents | 841de3e1ce86 |
| children | acb99f4bd01b |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Sun Oct 08 06:10:40 2000 +0000 +++ b/lisp/mouse.el Sun Oct 08 06:15:01 2000 +0000 @@ -380,10 +380,11 @@ (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.