procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix vertical cursor motion with non-default fonts.

Browse source 
lisp/simple.el (line-move-partial): Adjust the row returned by
 posn-at-point for the current window-vscroll.  (Bug#14567)
This commit is contained in:
Eli Zaretskii 2013-07-06 20:38:24 +03:00
parent 54a4248627
commit 23de972aa7
2 changed files with 11 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
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):

9
lisp/simple.el
View file

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