Commit 59b19d32 authored by Miles Bader's avatar Miles Bader
Browse files

(line-move):

  Pass INHIBIT-CAPTURE-PROPERTY argument to constrain-to-field.
  Pass nil ESCAPE-FROM-EDGE argument to constrain-to-field.
parent 8d0941fa
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment