From 65341a5b715062679a228c23f74273194334f417 Mon Sep 17 00:00:00 2001 From: Jeremy Compostella Date: Thu, 19 Jan 2012 22:46:17 +0100 Subject: [PATCH] windmove.el: Fix windmove-reference-loc miscalculation The `windmove-reference-loc' function should not take into account the `window-hscoll'. Signed-off-by: Jeremy Compostella --- lisp/windmove.el | 8 ++------ 1 files changed, 2 insertions(+), 6 deletions(-) diff --git a/lisp/windmove.el b/lisp/windmove.el index 10a5644..424b3e1 100644 --- a/lisp/windmove.el +++ b/lisp/windmove.el @@ -422,12 +422,8 @@ supplied, if ARG is greater or smaller than zero, respectively." 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))))))))) + top-left + (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 -- 1.7.2.5