bug#2400: 23.0.90; shell-mode: garbage in prompt

My prompt is rendered with garbage like this:

]0;xma@zogzog:~/var/spool/mail]0;xma@zogzog:~/var/spool/mail[xma@zogzog 00:36:00 mail]$ 

It happens with emacs -Q

Steps to reproduce:

M-x shell RET
M-x load-library RET ansi-color RET
M-x ansi-color-for-comint-on RET

Reproducible: always


In GNU Emacs 23.0.90.2 (i686-pc-linux-gnu, GTK+ Version 2.12.12)
 of 2009-02-14 on zogzog
Windowing system distributor `The X.Org Foundation', version 11.0.10402000
configured using `configure  '--without-xft''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: en_US.UTF-8
  value of $LC_CTYPE: fr_FR.UTF-8
  value of $LC_MESSAGES: en_US.UTF-8
  value of $LC_MONETARY: fr_FR.UTF-8
  value of $LC_NUMERIC: en_US.UTF-8
  value of $LC_TIME: en_US.UTF-8
  value of $LANG: en_US.UTF-8
  value of $XMODIFIERS: nil
  locale-coding-system: utf-8-unix
  default-enable-multibyte-characters: t

Major mode: Shell

Minor modes in effect:
  rcirc-track-minor-mode: t
  eev-mode: t
  shell-dirtrack-mode: t
  jabber-activity-mode: t
  auto-insert-mode: t
  global-hi-lock-mode: t
  hi-lock-mode: t
  show-paren-mode: t
  global-auto-revert-mode: t
  display-time-mode: t
  recentf-mode: t
  icomplete-mode: t
  desktop-save-mode: t
  auto-image-file-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  global-auto-composition-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  column-number-mode: t
  transient-mark-mode: t
  abbrev-mode: t

Recent input:
u p o n , SPC F R E E <return> d SPC SPC d SPC SPC 
SPC d d d d d d d C-x 1 d d d d d d d d d d d d d d 
d d d C-l d d d M-< h C-x 1 l f a i r y d a y s y <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
i d a y s y <return> h C-M-t <up> <right> <right> <right> 
<right> <right> <backspace> y <return> h l f a i r 
y d a <tab> <backspace> y s y <return> h C-x 1 C-l 
C-l C-l C-M-t f a i r [ y ] <backspace> i ] <return> 
h M-> C-x 1 C-l <up> C-l C-l C-l C-M-t O S S-SPC X 
<return> d d d d d d d d d d d d d d d d d d d d d 
d d d C-l d d d d d d d d d d d d d M-< h C-x 1 C-l 
C-l 1 4 8 8 j C-l C-l M-x a n s i - t e r <tab> <return> 
<return> <return> <return> <up> <down> <up> <return> 
M-k C-h v s h e l l - m o d e <tab> h o <tab> <return> 
M-k M-x s h e l l <return> <return> e x p o r t SPC 
T E R M = v t 1 0 0 <return> l s <return> l s SPC - 
- c o l o r = y e s <return> <up> <down> M-p SPC - 
l a r t SPC / t m p / <return> C-a C-a C-SPC <up> M-w 
M-x r e p o r t - e m <tab> <return>

Recent messages:
Computing summary lines...done
No previous message
Computing summary lines...done
Mark set
Computing summary lines...done
Mark set
Computing summary lines...done
Type "q" to restore this window.
History item: 1
Mark set


	Xavier
-- 
http://www.gnu.org
http://www.april.org
http://www.lolica.org