diff options
| author | Eli Zaretskii | 2014-01-30 19:42:48 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2014-01-30 19:42:48 +0200 |
| commit | a1a04df94c2cdea0f24733aa9b1892ee7ba50b13 (patch) | |
| tree | dc81a624f944e7d8bb94901d01d87bf65c618fe8 | |
| parent | 507a173f5077b86152feb665421f5e6d47b7c85c (diff) | |
| download | emacs-a1a04df94c2cdea0f24733aa9b1892ee7ba50b13.tar.gz emacs-a1a04df94c2cdea0f24733aa9b1892ee7ba50b13.zip | |
Revert last commit in mouse.el.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/mouse.el | 10 |
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 @@ | |||
| 1 | 2014-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 | |||
| 7 | 2014-01-30 Glenn Morris <rgm@gnu.org> | 1 | 2014-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)) |