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

[Kim F . Storm]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.700 emacs/lisp/simple.el:1.701
*** emacs/lisp/simple.el:1.700  Wed Mar 16 13:11:34 2005
--- emacs/lisp/simple.el        Thu Mar 17 15:33:56 2005
***************
*** 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
--- 3536,3546 ----
    (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))
!       (goto-char (constrain-to-field (point) orig (/= arg 1) t nil)))))
  
  
  ;;; Many people have said they rarely use this feature, and often type