set-mark-command is broken

[Michael Kifer]

it always sets mark, even if it is called as
(set-mark-command 1). In the latter case it should jump to mark instead of
setting it.

It seems that the correct behavior was broken by the latest change:
revision 1.535
date: 2002/04/14 17:27:55;  author: kfstorm;  state: Exp;  lines: +64 -22
(pop-to-mark-command, push-mark-command): New commands.
(set-mark-command): Use them.
Enhanced functionality when command is repeated:
- If first command set the mark (no prefix arg), repeat temporarily
enables transient-mark-mode.
- If first command jumped to mark off ring (with argument),
repeat (with or without arg) jump to next mark off ring.
- Use C-u C-u prefix to set mark after jump.
(exchange-point-and-mark): Temporarily enable transient-mark-mode
if prefix arg.