🚀 go-pugleaf

>In article <3845@charon.cwi.nl> waal@cwi.nl (Peter de Waal) writes:
>>
>>    (defun my-next-line (arg)
>>      "doesn't next-line past end of buffer"
>>      (interactive "p")
>>      (if (not (eobp)) (next-line arg)))
>>
>>as an alternative for the standard 'next-line'. It has the advantage
>>that it doesn't add new lines at the end of a buffer. The disadvantage
>>is that is forgets the original column position of the cursor [...]
>
>This is "expensive", but works. I'd like a "cheaper" way, but I'm sure
>one will show up ... [... expensive function deleted]

Here's mine.  Nice and cheap, and it doesn't forget which column you're at.

(defun next-line-until-eob (arg)
  "Move cursor vertically down ARG lines.
If there is no character in the target line exactly under the current column,
the cursor is positioned after the charactre in that line which spans this
column, or at the end of the line if it is not long enough.

Unlike next-line, this command will not insert newlines.

The command \\[set-goal-column] can be used to create a semipermanent goal
column to which this command always moves.  Then it does not try to move
vertically.

If you are thinking of using this in a Lisp program, consider using
`forward-line' instead.  It is usually easier to use and more reliable (no
dependence on goal column, etc.)."
  (interactive "p")
  (setq this-command 'next-line) ;; Fool line-move; see simple.el.
  (line-move arg))

If you're using GNU Emacs 18.56 or later, change "line-move" to
"next-line-internal".

-------------------------------------------------------------------------------
Eric Eide          |          University of Utah Department of Computer Science
eeide@cs.utah.edu  | Buddhist to hot dog vendor: "Make me one with everything."