diff options
| -rw-r--r-- | lisp/simple.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 16f69f2bbe7..58f83721923 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -6261,9 +6261,10 @@ If NOERROR, don't signal an error if we can't move that many lines." | |||
| 6261 | (let ((posn (posn-at-point)) | 6261 | (let ((posn (posn-at-point)) |
| 6262 | x-pos) | 6262 | x-pos) |
| 6263 | (cond | 6263 | (cond |
| 6264 | ;; Handle the `overflow-newline-into-fringe' case: | 6264 | ;; Handle the `overflow-newline-into-fringe' case |
| 6265 | ((eq (nth 1 posn) 'right-fringe) | 6265 | ;; (left-fringe is for the R2L case): |
| 6266 | (setq temporary-goal-column (cons (- (window-width) 1) hscroll))) | 6266 | ((memq (nth 1 posn) '(right-fringe left-fringe)) |
| 6267 | (setq temporary-goal-column (cons (window-width) hscroll))) | ||
| 6267 | ((car (posn-x-y posn)) | 6268 | ((car (posn-x-y posn)) |
| 6268 | (setq x-pos (car (posn-x-y posn))) | 6269 | (setq x-pos (car (posn-x-y posn))) |
| 6269 | ;; In R2L lines, the X pixel coordinate is measured from the | 6270 | ;; In R2L lines, the X pixel coordinate is measured from the |