[Emacs-diffs] Changes to emacs/lisp/simple.el

[Kim F . Storm]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.698 emacs/lisp/simple.el:1.699
*** emacs/lisp/simple.el:1.698  Tue Mar 15 07:45:21 2005
--- emacs/lisp/simple.el        Tue Mar 15 23:15:05 2005
***************
*** 3536,3552 ****
    (or arg (setq arg 1))
    (if (/= arg 1)
        (line-move (1- arg) t))
!   (let (done pos)
!     (while (not done)
!       (beginning-of-line 1)
!       ;; (not bolp) means that it stopped at a field boundary.
!       (if (or (bobp) (not (bolp)))
!         (setq done t)
!       (sit-for 0)
!       (if (and (consp (setq pos (pos-visible-in-window-p (point) nil t)))
!                (= (car pos) 0))
!           (setq done t)
!         (backward-char 1))))))
  
  
  ;;; Many people have said they rarely use this feature, and often type
--- 3536,3544 ----
    (or arg (setq arg 1))
    (if (/= arg 1)
        (line-move (1- arg) t))
!   (let ((orig (point)))
!     (vertical-motion 0)
!     (goto-char (constrain-to-field (point) orig (/= arg 1) t nil))))
  
  
  ;;; Many people have said they rarely use this feature, and often type