[Emacs-diffs] emacs/lisp/erc ChangeLog erc.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/01/16 03:32:14

Modified files:
        lisp/erc       : ChangeLog erc.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/erc/ChangeLog?cvsroot=emacs&r1=1.92&r2=1.93
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/erc/erc.el?cvsroot=emacs&r1=1.57&r2=1.58

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/erc/ChangeLog,v
retrieving revision 1.92
retrieving revision 1.93
diff -u -b -r1.92 -r1.93
--- ChangeLog   16 Jan 2009 03:29:41 -0000      1.92
+++ ChangeLog   16 Jan 2009 03:32:10 -0000      1.93
@@ -1,5 +1,7 @@
 2009-01-16  Glenn Morris  <address@hidden>
 
+       * erc.el (erc-input-message): Conditionalize previous change for XEmacs.
+
        * erc-dcc.el (erc-dcc-server): Silence warning about obsolete function
        behind fboundp test.
 

Index: erc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/erc/erc.el,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -b -r1.57 -r1.58
--- erc.el      9 Jan 2009 04:27:03 -0000       1.57
+++ erc.el      16 Jan 2009 03:32:12 -0000      1.58
@@ -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 ()