comparison lisp/simple.el @ 45730:93ebda6f1155

(line-move-finish): Inhibit field motion when computing `line-end'.

45729:91b90aef166c

      (let (new
	    (line-beg (save-excursion (beginning-of-line) (point)))
	    (line-end
	     ;; Compute the end of the line
	     ;; ignoring effectively intangible newlines.
	     (let ((inhibit-point-motion-hooks nil))
	       (save-excursion (end-of-line) (point)))))

	;; Move to the desired column.
	(line-move-to-column column)
	(setq new (point))

45730:93ebda6f1155

      (let (new
	    (line-beg (save-excursion (beginning-of-line) (point)))
	    (line-end
	     ;; Compute the end of the line
	     ;; ignoring effectively intangible newlines.
	     (let ((inhibit-point-motion-hooks nil)
		   (inhibit-field-text-motion t))
	       (save-excursion (end-of-line) (point)))))

	;; Move to the desired column.
	(line-move-to-column column)
	(setq new (point))