From: Eli Zaretskii Date: Thu, 30 Jan 2014 17:42:48 +0000 (+0200) Subject: Revert last commit in mouse.el. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~226 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a1a04df94c2cdea0f24733aa9b1892ee7ba50b13;p=emacs.git Revert last commit in mouse.el. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dcaf8527642..2a073a1ae32 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,9 +1,3 @@ -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 d940a762667..9231767576a 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -475,11 +475,8 @@ 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 window-resize-pixelwise))) + (adjust-window-trailing-edge window growth t t))) (draggable ;; Drag horizontal divider. (setq growth @@ -490,12 +487,9 @@ 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 - window-resize-pixelwise)))))) + window (if (eq line 'mode) growth (- growth)) nil t)))))) ;; Process the terminating event. (when (and (mouse-event-p event) on-link (not dragged) (mouse--remap-link-click-p start-event event))