diff options
author | Miles Bader <[email protected]> | 2000-07-24 23:48:53 +0000 |
---|---|---|
committer | Miles Bader <[email protected]> | 2000-07-24 23:48:53 +0000 |
commit | 59b19d324b94fdec6e86c3ee0851b22b0f100d93 (patch) | |
tree | 7a72a709a9c48bbdf0611dd6f3da8b6a49092751 /lisp | |
parent | 8d0941fa0d8f36778b7f2812019afd6f0d063cfe (diff) |
(line-move):
Pass INHIBIT-CAPTURE-PROPERTY argument to constrain-to-field.
Pass nil ESCAPE-FROM-EDGE argument to constrain-to-field.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/simple.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 58aa83f5bb..85df419408 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -2430,7 +2430,8 @@ Outline mode sets this." ;; 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 @@ Outline mode sets this." (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) |