🚀 go-pugleaf

In article <3845@charon.cwi.nl> waal@cwi.nl (Peter de Waal) writes:
>In my .emacs file I have
>
>    (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 whenever
>you do a 'my-next-line' to a line that is shorter then the previous
>one.  In particular this means that doing a 'my-next-line' while
>crossing an empty line causes the cursor to end up in column 1 and
>stay there during subsequent my-next-lines. The original 'next-line',
>however, handles this correctly. Can anybody explain me why?  Does
>anybody know a cure?

This is "expensive", but works. I'd like a "cheaper" way, but I'm sure
one will show up ...

(defun only-next-line (&optional line)
  (interactive "p")
  (if (= 1 (save-excursion (forward-line 1)))
      (beep)
    (next-line line)))
-- 
"When in some obscure country town, the farmers come together to a special town
meeting, to express their opinion on some subject that is vexing the land, that
I think is the true Congress, and the most respectable one that is ever
assembled in the United States." - Thoreau