From: Chong Yidong <cyd@stupidchicken.com>
Date: Sat, 17 Mar 2007 19:44:21 +0000 (+0000)
Subject: (line-move-1): Respect `inhibit-line-move-field-capture' property.
X-Git-Tag: emacs-pretest-22.0.96~94
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0788987302b3ae02bdd6a101dc2d0503d45b37d1;p=emacs.git

(line-move-1): Respect `inhibit-line-move-field-capture' property.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 1dd6b802c05..1f233de9857 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3594,7 +3594,7 @@ Outline mode sets this."
 			      'end-of-buffer)
 			    nil)))
 	    ;; Move by arg lines, but ignore invisible ones.
-	    (let (done line-end)
+	    (let (done)
 	      (while (and (> arg 0) (not done))
 		;; If the following character is currently invisible,
 		;; skip all characters with that same `invisible' property value.
@@ -3603,9 +3603,11 @@ Outline mode sets this."
 		;; Move a line.
 		;; We don't use `end-of-line', since we want to escape
 		;; from field boundaries ocurring exactly at point.
-		(let ((inhibit-field-text-motion t))
-		  (setq line-end (line-end-position)))
-		(goto-char (constrain-to-field line-end (point) t t))
+		(goto-char (constrain-to-field
+			    (let ((inhibit-field-text-motion t))
+			      (line-end-position))
+			    (point) t t
+			    'inhibit-line-move-field-capture))
 		;; If there's no invisibility here, move over the newline.
 		(cond
 		 ((eobp)