From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Thu, 14 Feb 2013 00:44:38 +0000 (+0000)
Subject: gnus-util.el (gnus-define-keys): Convert [?\S-\ ] to [(shift space)] for XEmacs
X-Git-Tag: emacs-24.3.90~173^2~7^2~48
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6b26f14f789112bb929f65a8d44caeda11418432;p=emacs.git

gnus-util.el (gnus-define-keys): Convert [?\S-\ ] to [(shift space)] for XEmacs
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 14499a8fafc..b6e8fd976d3 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2013-02-14  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus-util.el (gnus-define-keys): Convert [?\S-\ ] to [(shift space)]
+	for XEmacs.
+
 2013-02-13  Juri Linkov  <juri@jurta.org>
 
 	* gnus-art.el (gnus-article-mode-map):
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index df805c6fb26..331f9556710 100644
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -333,6 +333,13 @@ TIME defaults to the current time."
 
 (defmacro gnus-define-keys (keymap &rest plist)
   "Define all keys in PLIST in KEYMAP."
+  ;; Convert the key [?\S-\ ] to [(shift space)] for XEmacs.
+  (when (featurep 'xemacs)
+    (let ((bindings plist))
+      (while bindings
+	(when (equal (car bindings) [?\S-\ ])
+	  (setcar bindings [(shift space)]))
+	(setq bindings (cddr bindings)))))
   `(gnus-define-keys-1 (quote ,keymap) (quote ,plist)))
 
 (defmacro gnus-define-keys-safe (keymap &rest plist)