(push-mark N t t) doesn't activate region in virgin buffer

[Drew Adams]

emacs -Q
M-x transient-mark-mode ; turn it on
M-: (goto-char (point-min))
M-: (mark t) ; returns nil
M-: (push-mark 20 t t)
M-: (mark t) ; returns 20
M-: mark-active ; returns nil

The region is not activated by the call to push-mark, but it should
be, IMO. (point) = 1, mark = 20, and transient-mark-mode is on. The
doc of push-mark says that it activates the mark if the third arg is
non-nil.

The same bug exists in Emacs 21. In Emacs 20, however, the region is
active (as it should be).


In GNU Emacs 22.0.93.1 (i386-mingw-nt5.1.2600)
 of 2007-01-25 on LENNART-69DE564
X server distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-gcc (3.4) --cflags -Ic:/g/include'

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: ENU
  locale-coding-system: cp1252
  default-enable-multibyte-characters: t

Major mode: Dired by name

Minor modes in effect:
  encoded-kbd-mode: t
  tooltip-mode: t
  tool-bar-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
M-: ( p u <backspace> <backspace> t r a n <backspace> 
C-g M-x t r a n s i e n t - m a r k - m o d e <return> 
M-: ( p u s h - m a r k SPC 5 0 SPC t SPC t ) <return> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <menu-bar> <help-menu> 
<report-emacs-bug>

Recent messages:
Loading encoded-kb...done
For information about the GNU Project and its goals, type C-h C-p.
Loading dired...
Loading regexp-opt...done
Loading dired...done
For information about the GNU Project and its goals, type C-h C-p.
Quit
Transient-Mark mode enabled
nil
Loading emacsbug...done