RE: C-x home/end to select buffer before/after point?

["Drew Adams" <drew.adams@oracle.com>]

> > (defun mark-buffer-before-point (reversep)
> >   "Select the part of the buffer before point.
> > With a prefix argument, select the part after point."
> >   (interactive "P")
> >   (mark-buffer-after-point t))
> 
> M-< C-x C-x
> 
> > (defun mark-buffer-after-point (reversep)
> >   "Select the part of the buffer after point.
> > With a prefix argument, select the part before point."
> >   (interactive "P")
> >   (push-mark (if reversep (point-min) (point-max)) nil t)
> >   (setq deactivate-mark nil))
> 
> M-> C-x C-x

Of course. And? The point was to be able to bind it to a single key.