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

["Richard M. Stallman" <rms@gnu.org>]

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