(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))
(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