bug#2449: 23.0.90; Disabling transient-mark-mode doesn't work well in ansi-term

Hi,

When one disables transient-mark-mode in an ansi-term (term.el), and
then select a piece of text with the mouse, then the behavior is the
one of transient-mark-mode although it has been disabled.

Steps to reproduce (in emacs -Q for example):

M-x transient-mark-mode RET (to disable it)
M-x ansi-term RET RET
ls (at the shell prompt)
select text in the *ansi-term* buffer with the mouse.
ls

Expected behavior: the selection disapears.

Obtained behavior: the selection follows the cursor, at the prompt.

Emacs22 had this right, this is a regression.

Thanks,




In GNU Emacs 23.0.90.1 (i686-pc-linux-gnu, GTK+ Version 2.8.20)
 of 2009-02-23 on bauges
Windowing system distributor `The X.Org Foundation', version 11.0.70101000
configured using `configure  '--prefix=/home/moy/local/usr/''

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: en_US.UTF-8
  value of $XMODIFIERS: nil
  locale-coding-system: utf-8-unix
  default-enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
  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
  global-auto-composition-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t

Recent input:
M-x t e r m <tab> <return> <return> l s <return> M-x 
C-g C-c M-x t r a n <tab> i <tab> <return> l s <return> 
<down-mouse-1> <mouse-movement> <mouse-movement> <drag-mouse-1> 
l s <return> C-g C-g C-g C-c C-g C-x C-g C-g <return> 
<up> <down> <return> <down-mouse-1> <mouse-1> l s <return> 
l s <return> <down-mouse-1> <mouse-movement> <mouse-movement> 
<drag-mouse-1> C-c C-j M-> l s <return> C-c C-k l s 
<return> <down-mouse-1> <mouse-movement> <mouse-movement> 
<drag-mouse-1> l s <return> C-x b C-c C-b C-x o <help-echo> 
<help-echo> <help-echo> <down-mouse-1> <mouse-2> <help-echo> 
<down-mouse-1> <mouse-movement> <mouse-movement> <drag-mouse-1> 
M-> l s <return> M-x r e p o r t <tab> <return>

Recent messages:
For information about GNU Emacs and the GNU system, type C-h C-a.
Transient-Mark mode disabled
Mark set [2 times]