# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 964482533 0
# Node ID fde88b706d7e9e7f4596dab912c48521d01a1ef3
# Parent  a438686586ddb9b22f1a48f5bb78604dfb0f194e
(line-move):
  Pass INHIBIT-CAPTURE-PROPERTY argument to constrain-to-field.
  Pass nil ESCAPE-FROM-EDGE argument to constrain-to-field.

diff -r a438686586dd -r fde88b706d7e lisp/simple.el
--- a/lisp/simple.el	Mon Jul 24 23:47:09 2000 +0000
+++ b/lisp/simple.el	Mon Jul 24 23:48:53 2000 +0000
@@ -2430,7 +2430,8 @@
       ;; with intangibility and point-motion hooks enabled this time.
       (goto-char opoint)
       (setq inhibit-point-motion-hooks nil)
-      (goto-char (constrain-to-field new opoint t t))
+      (goto-char (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))
@@ -2445,7 +2446,8 @@
 	    (setq new (point)))
 	(goto-char (point-min))
 	(setq inhibit-point-motion-hooks nil)
-	(goto-char (constrain-to-field new opoint t t))
+	(goto-char (constrain-to-field new opoint nil t
+				       'inhibit-line-move-field-capture))
 	)))
   nil)