(erc-input-message): Conditionalize previous change for XEmacs.

diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index d56947d5e71d683689aa87f4250f53190caea48d..f7bb78cb2454aae1c8116c673a5937ad41261cea 100644 (file)
--- a/lisp/erc/ChangeLog
+++ b/lisp/erc/ChangeLog
@@ -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 --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index 756ecef14fda1cf6171e8212048807b9b5b9fb7d..8a1a8671d6965e8ee415b2a0a91c6c20849fffe1 100644 (file)
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -3708,7 +3708,9 @@ If FACE is non-nil, it will be used to propertize the prompt.  If it is nil,
   (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 ()