Re: move-beginning-of-line misbehaves on wrapped-line invisible text - recent cvs checkout

[Ken Manheimer]

this works for me!

On 1/19/06, Richard M. Stallman <address@hidden> wrote:
>     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?

i see none of the problems that had been showing without the patch.  i
haven't exercised emacs very much with the change, but see that it's
already in CVS.  i'll report if i encounter any problems with it. 
thanks!

ken

> *** 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))
>