[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/erc ChangeLog erc.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp/erc ChangeLog erc.el |
Date: |
Fri, 16 Jan 2009 03:32:14 +0000 |
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 ()