# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1232076730 0
# Node ID 0187c269e057bbd298ca9f48ff94c88145d2d1c8
# Parent  b3adc91177117efe4ef59cfd52bf9905ced1568f
(erc-input-message): Conditionalize previous change for XEmacs.

diff -r b3adc9117711 -r 0187c269e057 lisp/erc/ChangeLog
--- a/lisp/erc/ChangeLog	Fri Jan 16 03:29:41 2009 +0000
+++ b/lisp/erc/ChangeLog	Fri Jan 16 03:32:10 2009 +0000
@@ -1,5 +1,7 @@
 2009-01-16  Glenn Morris  <rgm@gnu.org>
 
+	* erc.el (erc-input-message): Conditionalize previous change for XEmacs.
+
 	* erc-dcc.el (erc-dcc-server): Silence warning about obsolete function
 	behind fboundp test.
 
diff -r b3adc9117711 -r 0187c269e057 lisp/erc/erc.el
--- a/lisp/erc/erc.el	Fri Jan 16 03:29:41 2009 +0000
+++ b/lisp/erc/erc.el	Fri Jan 16 03:32:10 2009 +0000
@@ -3708,7 +3708,9 @@
   (let ((minibuffer-allow-text-properties t)
 	(read-map minibuffer-local-map))
     (insert (read-from-minibuffer "Message: "
-				  (string last-command-event) read-map))
+				  (string (if (featurep 'xemacs)
+					      last-command-char
+					    last-command-event)) read-map))
     (erc-send-current-line)))
 
 (defvar erc-action-history-list ()