Mercurial > emacs

comparison lisp/mouse.el @ 32269:5bccbf00889a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 03dee1b8a506
children b95ac47063ce
comparison
equal deleted inserted replaced
32268:841de3e1ce86 32269:5bccbf00889a
378 ;; Scale back a move that would make the 378 ;; Scale back a move that would make the
379 ;; window too short. 379 ;; window too short.
380 (when (< (- y top -1) window-min-height) 380 (when (< (- y top -1) window-min-height)
381 (setq y (+ top window-min-height -1))) 381 (setq y (+ top window-min-height -1)))
382 (setq growth (- y bot -1))) 382 (setq growth (- y bot -1)))
383 (t 383 (t ; header line
384 (when (< (- bot y -1) window-min-height) 384 (when (< (- bot y) window-min-height)
385 (setq y (- bot window-min-height -1))) 385 (setq y (- bot window-min-height)))
386 (setq growth (- top y -1)))) 386 ;; The window's top includes the header line!
387 (setq growth (- top y))))
387 (setq wconfig (current-window-configuration)) 388 (setq wconfig (current-window-configuration))
388 389
389 ;; Check for an error case. 390 ;; Check for an error case.
390 (when (and (/= growth 0) 391 (when (and (/= growth 0)
391 (not minibuffer) 392 (not minibuffer)