Replace Error

[Harald Maier]

Symptoms:

I tried the swap example in the Emacs Manual (Regexp Replacement) to
exchange 'x' and 'y'. 

     M-x replace-regexp <RET> \(x\)\|y <RET>
     \,(if \1 "y" "x") <RET>

If I only use 'xxxx' all works fine, but if I
use 'xyx' then the example from the emacs manual did not work and the
following backtrace will be displayed:

Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p #<buffer 
*scratch*>)
  set-match-data((193 194 #<buffer *scratch*> nil nil))
  perform-replace("\\(x\\)\\|y" (replace-eval-replacement replace-quote (if 
(match-string 1) "y" "x")) nil t nil nil nil nil nil)
  replace-regexp("\\(x\\)\\|y" (replace-eval-replacement replace-quote (if 
(match-string 1) "y" "x")) nil nil nil)
  call-interactively(replace-regexp)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)

To demonstrate the bug see below the 'Recent Input'. I am using
CVS-Emacs from 2004-06-27.

Harald 

Recent input:
M-x t o g g l e - d e b <tab> e r <tab> <return> x 
y x <home> M-x r e p l a c e - r e g <tab> <return> 
\ ( x \ ) \ | y <return> \ , ( i f SPC \ 1 SPC " y 
" SPC " x " ) <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> <menu-bar> <help-menu> 
<report-emacs-bug>

Recent messages:
Loading paren...done
Loading encoded-kb...done
For information about the GNU Project and its goals, type C-h C-p.
Loading mwheel...done
Debug on Error enabled
Mark set
Loading debug...done
Entering debugger...
 [2 times]
Loading emacsbug...done



In GNU Emacs 21.3.50.1 (i686-pc-linux-gnu, Motif Version 2.2.2)
 of 2004-06-27 on eos
configured using `configure '--with-x-toolkit=motif' 
'--x-includes=/usr/X11R6/include' '--x-libraries=/usr/X11R6/lib''

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
  locale-coding-system: iso-latin-1
  default-enable-multibyte-characters: t