From: Martin Rudalics Date: Thu, 30 Jan 2014 13:19:19 +0000 (+0100) Subject: In mouse-drag-line obey window-resize-pixelwise (Bug#16594). X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~228 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=df1834593692c4103f89de90aaa882a2fb404eb6;p=emacs.git In mouse-drag-line obey window-resize-pixelwise (Bug#16594). * mouse.el (mouse-drag-line): When window-resize-pixelwise is nil call adjust-window-trailing-edge with suitable arguments (Bug#16594). --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2a073a1ae32..dcaf8527642 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2014-01-30 Martin Rudalics + + * mouse.el (mouse-drag-line): When window-resize-pixelwise is + nil call adjust-window-trailing-edge with suitable arguments + (Bug#16594). + 2014-01-30 Glenn Morris * simple.el (eval-expression): Doc fix. diff --git a/lisp/mouse.el b/lisp/mouse.el index 9231767576a..d940a762667 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -475,8 +475,11 @@ must be one of the symbols `header', `mode', or `vertical'." (nth 2 (window-pixel-edges window)) -1)) (unless (zerop growth) + (unless window-resize-pixelwise + (setq growth (min (/ growth (frame-char-width frame)) 1))) (setq dragged t) - (adjust-window-trailing-edge window growth t t))) + (adjust-window-trailing-edge + window growth t window-resize-pixelwise))) (draggable ;; Drag horizontal divider. (setq growth @@ -487,9 +490,12 @@ must be one of the symbols `header', `mode', or `vertical'." (- (+ (nth 3 (window-pixel-edges window)) height) (cddr position)))) (unless (zerop growth) + (unless window-resize-pixelwise + (setq growth (min (/ growth (frame-char-height frame)) 1))) (setq dragged t) (adjust-window-trailing-edge - window (if (eq line 'mode) growth (- growth)) nil t)))))) + window (if (eq line 'mode) growth (- growth)) nil + window-resize-pixelwise)))))) ;; Process the terminating event. (when (and (mouse-event-p event) on-link (not dragged) (mouse--remap-link-click-p start-event event))