comparison lisp/simple.el @ 8309:a4dbf8e6c78f

(line-move, next-line): Check last line moved over has a newline, in a way that intangible text does not confuse.

8308:9c9cbb121c37

using `forward-line' instead.  It is usually easier to use
and more reliable (no dependence on goal column, etc.)."
  (interactive "p")
  (if (and next-line-add-newlines (= arg 1))
      (let ((opoint (point)))
	(forward-line 1)
	(if (or (= opoint (point)) (not (eq (preceding-char) ?\n)))
	    (insert ?\n)
	  (goto-char opoint)
	  (line-move arg)))
    (line-move arg))
  nil)

		     ;; unless we just did explicit end-of-line.
		     (or (not (bolp)) (eq last-command 'end-of-line)))
		9999
	      (current-column))))
  (if (not (integerp selective-display))
      (or (and (zerop (forward-line arg))
	       (bolp))
	  (signal (if (bobp)
		      'beginning-of-buffer
		    'end-of-buffer)
		  nil))
    ;; Move by arg lines, but ignore invisible ones.

8309:a4dbf8e6c78f

using `forward-line' instead.  It is usually easier to use
and more reliable (no dependence on goal column, etc.)."
  (interactive "p")
  (if (and next-line-add-newlines (= arg 1))
      (let ((opoint (point)))
	(end-of-line)
	(if (eobp)
	    (insert ?\n)
	  (goto-char opoint)
	  (line-move arg)))
    (line-move arg))
  nil)

		     ;; unless we just did explicit end-of-line.
		     (or (not (bolp)) (eq last-command 'end-of-line)))
		9999
	      (current-column))))
  (if (not (integerp selective-display))
      (or (if (> arg 0)
	      (progn (if (> arg 1) (forward-line (1- arg)))
		     ;; This way of moving forward ARG lines
		     ;; verifies that we have a newline after the last one.
		     ;; It doesn't get confused by intangible text.
		     (end-of-line)
		     (zerop (forward-line 1)))
	    (and (zerop (forward-line arg))
		 (bolp)))
	  (signal (if (bobp)
		      'beginning-of-buffer
		    'end-of-buffer)
		  nil))
    ;; Move by arg lines, but ignore invisible ones.