haven't decided if i like that yet, but it leaves the mark on the far side of (point) and (mark) when you move to beginning or end of buffer. greg Hrvoje> Hrvoje> greg(a)alphatech.com (Greg Klanderman) writes: Hrvoje> Hrvoje> I don't understand your (> (point) (mark)) check. If I were to change Hrvoje> beginning-of-buffer, I'd make a simpler change: Hrvoje> Hrvoje> (defun ... Hrvoje> (interactive "_") Hrvoje> (unless (region-active-p) Hrvoje> (push-mark)) Hrvoje> ;; the rest of the function -- a bit more complex than this, but Hrvoje> ;; essentially the same: Hrvoje> (goto-char (point-min)))