[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: move-beginning-of-line misbehaves on wrapped-line invisible text - r
From: |
Richard M. Stallman |
Subject: |
Re: move-beginning-of-line misbehaves on wrapped-line invisible text - recent cvs checkout |
Date: |
Thu, 19 Jan 2006 12:45:06 -0500 |
move-beginning-of-line is supposed to move to the beginning of the
current _display_ line. emphasis on "display" is because i'm not
quite clear what it means.
I believe the idea is that newlines that don't really appear as such
do not count.
I don't see the problems you reported with the medium-size lines,
but I do see the problem with the longest line. This seems to fix it.
Does this give good results in general?
*** simple.el 05 Jan 2006 10:48:16 -0500 1.783
--- simple.el 19 Jan 2006 12:11:57 -0500
***************
*** 3734,3740 ****
(or arg (setq arg 1))
(if (/= arg 1)
(line-move (1- arg) t))
! (beginning-of-line 1)
(let ((orig (point)))
(vertical-motion 0)
(if (/= orig (point))
--- 3735,3747 ----
(or arg (setq arg 1))
(if (/= arg 1)
(line-move (1- arg) t))
!
! ;; Move to beginning-of-line, ignoring fields and invisibles.
! (skip-chars-backward "^\n")
! (while (and (not (bobp)) (line-move-invisible-p (1- (point))))
! (goto-char (previous-char-property-change (1- (point))))
! (skip-chars-backward "^\n"))
!
(let ((orig (point)))
(vertical-motion 0)
(if (/= orig (point))