mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Fix windmove-reference-loc miscalculation.

Browse source
This commit is contained in:
Jérémy Compostella 2012-01-21 11:02:34 +01:00 • committed by Martin Rudalics
parent 61086eb66b
commit f096042862
2 changed files with 14 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2012-01-21 Jérémy Compostella <jeremy.compostella@gmail.com>
* windmove.el (windmove-reference-loc): Fix
windmove-reference-loc miscalculation.
2012-01-21 Jay Belanger <jay.p.belanger@gmail.com>
* calc/calc-units.el (math-put-default-units): Don't use "1" as a

18
lisp/windmove.el
View file

@ -417,17 +417,17 @@ supplied, if ARG is greater or smaller than zero, respectively."
(- (nth 3 edges) 1))))
(cond
((> effective-arg 0)
top-left)
top-left)
((< effective-arg 0)
bottom-right)
bottom-right)
((= effective-arg 0)
(windmove-coord-add
top-left
(let ((col-row
(posn-col-row
(posn-at-point (window-point window) window))))
(cons (- (car col-row) (window-hscroll window))
(cdr col-row)))))))))
(windmove-coord-add
top-left
;; Don't care whether window is horizontally scrolled -
;; `posn-at-point' handles that already. See also:
;; http://lists.gnu.org/archive/html/emacs-devel/2012-01/msg00638.html
(posn-col-row
(posn-at-point (window-point window) window))))))))
;; This uses the reference location in the current window (calculated
;; by `windmove-reference-loc' above) to find a reference location