aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2014-01-30 19:42:48 +0200
committerEli Zaretskii2014-01-30 19:42:48 +0200
commita1a04df94c2cdea0f24733aa9b1892ee7ba50b13 (patch)
treedc81a624f944e7d8bb94901d01d87bf65c618fe8
parent507a173f5077b86152feb665421f5e6d47b7c85c (diff)
downloademacs-a1a04df94c2cdea0f24733aa9b1892ee7ba50b13.tar.gz
emacs-a1a04df94c2cdea0f24733aa9b1892ee7ba50b13.zip
Revert last commit in mouse.el.
-rw-r--r--lisp/ChangeLog6
-rw-r--r--lisp/mouse.el10
2 files changed, 2 insertions, 14 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dcaf8527642..2a073a1ae32 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,9 +1,3 @@
12014-01-30 Martin Rudalics <rudalics@gmx.at>
2
3 * mouse.el (mouse-drag-line): When window-resize-pixelwise is
4 nil call adjust-window-trailing-edge with suitable arguments
5 (Bug#16594).
6
72014-01-30 Glenn Morris <rgm@gnu.org> 12014-01-30 Glenn Morris <rgm@gnu.org>
8 2
9 * simple.el (eval-expression): Doc fix. 3 * 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'."
475 (nth 2 (window-pixel-edges window)) 475 (nth 2 (window-pixel-edges window))
476 -1)) 476 -1))
477 (unless (zerop growth) 477 (unless (zerop growth)
478 (unless window-resize-pixelwise
479 (setq growth (min (/ growth (frame-char-width frame)) 1)))
480 (setq dragged t) 478 (setq dragged t)
481 (adjust-window-trailing-edge 479 (adjust-window-trailing-edge window growth t t)))
482 window growth t window-resize-pixelwise)))
483 (draggable 480 (draggable
484 ;; Drag horizontal divider. 481 ;; Drag horizontal divider.
485 (setq growth 482 (setq growth
@@ -490,12 +487,9 @@ must be one of the symbols `header', `mode', or `vertical'."
490 (- (+ (nth 3 (window-pixel-edges window)) height) 487 (- (+ (nth 3 (window-pixel-edges window)) height)
491 (cddr position)))) 488 (cddr position))))
492 (unless (zerop growth) 489 (unless (zerop growth)
493 (unless window-resize-pixelwise
494 (setq growth (min (/ growth (frame-char-height frame)) 1)))
495 (setq dragged t) 490 (setq dragged t)
496 (adjust-window-trailing-edge 491 (adjust-window-trailing-edge
497 window (if (eq line 'mode) growth (- growth)) nil 492 window (if (eq line 'mode) growth (- growth)) nil t))))))
498 window-resize-pixelwise))))))
499 ;; Process the terminating event. 493 ;; Process the terminating event.
500 (when (and (mouse-event-p event) on-link (not dragged) 494 (when (and (mouse-event-p event) on-link (not dragged)
501 (mouse--remap-link-click-p start-event event)) 495 (mouse--remap-link-click-p start-event event))