# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 997973485 0
# Node ID ba7523a60edc0f7a3d6503bef1a5a0567f910018
# Parent  a0e762f22e7c3aed3a7e98c6dffb9fdc72a9dc83
(line-move): Undo previous change.

diff -r a0e762f22e7c -r ba7523a60edc lisp/simple.el
--- a/lisp/simple.el	Thu Aug 16 14:27:07 2001 +0000
+++ b/lisp/simple.el	Thu Aug 16 14:51:25 2001 +0000
@@ -2591,7 +2591,7 @@
       (goto-char opoint)
       (setq inhibit-point-motion-hooks nil)
       (goto-char
-       (constrain-to-field new opoint t t 'inhibit-line-move-field-capture))
+       (constrain-to-field new opoint nil t 'inhibit-line-move-field-capture))
       ;; If intangibility processing moved us to a different line,
       ;; readjust the horizontal position within the line we ended up at.
       (when (or (< (point) line-beg) (> (point) line-end))
@@ -2607,8 +2607,8 @@
 	(goto-char (point-min))
 	(setq inhibit-point-motion-hooks nil)
 	(goto-char
-	 (constrain-to-field new opoint t t 'inhibit-line-move-field-capture))
-	)))
+	 (constrain-to-field new opoint nil t
+			     'inhibit-line-move-field-capture)))))
   nil)
 
 ;;; Many people have said they rarely use this feature, and often type