changeset 101229:0187c269e057

(erc-input-message): Conditionalize previous change for XEmacs.
author Glenn Morris <rgm@gnu.org>
date Fri, 16 Jan 2009 03:32:10 +0000
parents b3adc9117711
children 43780da4f5f4
files lisp/erc/ChangeLog lisp/erc/erc.el
diffstat 2 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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.
 
--- 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 ()