diff options
| author | Martin Rudalics <rudalics@gmx.at> | 2014-01-30 14:19:19 +0100 |
|---|---|---|
| committer | Martin Rudalics <rudalics@gmx.at> | 2014-01-30 14:19:19 +0100 |
| commit | df1834593692c4103f89de90aaa882a2fb404eb6 (patch) | |
| tree | 2d4614643930a3d5349a5c099879a1901565712e /lisp/mouse.el | |
| parent | b169c4cc3724181c4c05d8bd813132b247fff668 (diff) | |
| download | emacs-df1834593692c4103f89de90aaa882a2fb404eb6.tar.gz | |
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).
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 10 |
1 files changed, 8 insertions, 2 deletions
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)) |