Re: scroll-down and beginning-of-buffer

["Eli Zaretskii" <eliz@gnu.org>]

> Date: Fri, 7 Jan 2005 12:05:31 -0500 (EST)
> From: Paul Raines <raines@nmr.mgh.harvard.edu>
> 
> (defun my-scroll-down (arg)
>    "Same as scroll-down except really goes to beginning of file"
>    (interactive "P")
>    (if (not (call-interactively 'scroll-down))
>        (call-interactively 'beginning-of-buffer)))
> 
> Which works but has the horrible side effect of reseting the mark
> each time it is used to the region scrolled.  How do I stop it
> from doing that?

If you call pop-mark after beginning-of-buffer, it will restore the
mark to what it was before that.

Alternatively, replace the call to beginning-of-buffer with a loop
that moves one line backwards until it hits the first line.

> Or is the better way to get what I want?

A better way would be to get used to what Emacs does when you press
PageDown repeatedly ;-)

Anyway, why did you invoke scroll-down and beginning-of-buffer via
call-interactively?  Why not simply call (scroll-down) and
(beginning-of-buffer)?