[Emacs-diffs] /srv/bzr/emacs/trunk r111775: gnus-util.el (gnus-define-keys): Convert [?\S-\ ] to [(shift space)] for XEmacs

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 111775
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Thu 2013-02-14 00:44:38 +0000
message:
  gnus-util.el (gnus-define-keys): Convert [?\S-\ ] to [(shift space)] for 
XEmacs
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-util.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-02-13 08:28:47 +0000
+++ b/lisp/gnus/ChangeLog       2013-02-14 00:44:38 +0000
@@ -1,3 +1,8 @@
+2013-02-14  Katsumi Yamaoka  <address@hidden>
+
+       * gnus-util.el (gnus-define-keys): Convert [?\S-\ ] to [(shift space)]
+       for XEmacs.
+
 2013-02-13  Juri Linkov  <address@hidden>
 
        * gnus-art.el (gnus-article-mode-map):

=== modified file 'lisp/gnus/gnus-util.el'
--- a/lisp/gnus/gnus-util.el    2013-01-02 16:13:04 +0000
+++ b/lisp/gnus/gnus-util.el    2013-02-14 00:44:38 +0000
@@ -333,6 +333,13 @@
 
 (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)