mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

(line-move-visual): Handle overflow-newline-into-fringe.

Browse Source
This commit is contained in:
Chong Yidong 2009-02-07 05:51:27 +00:00
parent b352f3398a
commit b6d79b2f06
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/simple.el
View File

@ -4035,9 +4035,12 @@ into account variable-width characters and line continuation."
(or (memq last-command '(next-line previous-line))
;; In case we're called from some other command.
(eq last-command this-command)))
(let ((x (car (nth 2 (posn-at-point)))))
(when x
(setq temporary-goal-column (/ (float x) (frame-char-width))))))
(let ((posn (posn-at-point))
x)
(cond ((eq (nth 1 posn) 'right-fringe) ; overflow-newline-into-fringe
(setq temporary-goal-column (- (window-width) 1)))
((setq x (car (nth 2 posn)))
(setq temporary-goal-column (/ (float x) (frame-char-width)))))))
(or (= (vertical-motion
(cons (or goal-column (truncate temporary-goal-column)) arg))
arg)