Commit 23de972a authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

Fix vertical cursor motion with non-default fonts.

 lisp/simple.el (line-move-partial): Adjust the row returned by
 posn-at-point for the current window-vscroll.  (Bug#14567)
parent 54a42486
2013-07-06 Eli Zaretskii <eliz@gnu.org>
* simple.el (line-move-partial): Adjust the row returned by
posn-at-point for the current window-vscroll. (Bug#14567)
2013-07-06 Michael Albinus <michael.albinus@gmx.de>
* net/tramp-sh.el (tramp-sh-file-gvfs-monitor-dir-process-filter):
......
......@@ -4759,9 +4759,12 @@ lines."
this-height (nth 4 wstart))))
(setq py
(or (nth 1 this-lh)
(let ((ppos (posn-at-point)))
(cdr (or (posn-actual-col-row ppos)
(posn-col-row ppos))))))
(let ((ppos (posn-at-point))
col-row)
(setq col-row (posn-actual-col-row ppos))
(if col-row
(- (cdr col-row) (window-vscroll))
(cdr (posn-col-row ppos))))))
(cond
;; If last line of window is fully visible, and vscrolling
;; more would make this line invisible, move forward.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment