bug#21732: 25.0.50; intermittent failure using windmove when in doc-view buffer

[martin rudalics]

> There replace the line
>
>         ((let ((posn-cons (nth 2 (posn-at-point (window-point window) 
window))))
>
> by a form like

Better use

           ((let ((posn-cons (nth 2 (posn-at-point (window-point window) 
window))))
              (let ((my-value (if hor (cdr posn-cons) (car posn-cons))))
                (when (or (not my-value) (< my-value 0))
                  (setq my-variable
                        (cons
                         (format "window: %s direction : %s sign: %s wrap: %s mini: 
%s posn-cons: %s"
                                 window direction sign wrap mini posn-cons)
                         my-variable))))

instead so we won't confuse horizontal and vertical selections.

martin