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

["Davis Herring" <herring@lanl.gov>]

> (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

Davis

-- 
This product is sold by volume, not by mass.  If it appears too dense or
too sparse, it is because mass-energy conversion has occurred during
shipping.