mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-03 22:20:52 -08:00
Code Issues Projects Releases Wiki Activity

In mouse-drag-line obey window-resize-pixelwise (Bug#16594).

Browse source 
* mouse.el (mouse-drag-line): When window-resize-pixelwise is
nil call adjust-window-trailing-edge with suitable arguments
(Bug#16594).
This commit is contained in:
Martin Rudalics 2014-01-30 14:19:19 +01:00
parent b169c4cc37
commit df18345936
2 changed files with 14 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2014-01-30 Martin Rudalics <rudalics@gmx.at>
* 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 <rgm@gnu.org>
* simple.el (eval-expression): Doc fix.

10
lisp/mouse.el
View file

@ -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))