[gnus git] branch master updated: m0-5-263-g98f5834 =1= gnus-util.el (gnus-define-keys): Convert [?\S-\ ] to [(shift space)] for XEmacs
Katsumi Yamaoka <[email protected]>
| Newsgroups | gmane.emacs.gnus.cvs |
|---|---|
| Message-ID | <[email protected]> |
via 98f5834b9573e615f95e910006843a1a03d5c5df (commit)
from 6e329e00f1a7d978e5bde8976d722de5b319b452 (commit)
- Log -----------------------------------------------------------------
commit 98f5834b9573e615f95e910006843a1a03d5c5df
Author: Katsumi Yamaoka <[email protected]>
Date: Thu Feb 14 00:44:27 2013 +0000
gnus-util.el (gnus-define-keys): Convert [?\S-\ ] to [(shift space)] for XEmacs
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6e80bde..5edf6f6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-02-14 Katsumi Yamaoka <[email protected]>
+
+ * gnus-util.el (gnus-define-keys): Convert [?\S-\ ] to [(shift space)]
+ for XEmacs.
+
2013-02-13 Juri Linkov <[email protected]>
* gnus-art.el (gnus-article-mode-map):
diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index df805c6..331f955 100644
--- a/lisp/gnus-util.el
+++ b/lisp/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)
-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.
Summary of changes:
lisp/ChangeLog | 5 +++++
lisp/gnus-util.el | 7 +++++++
2 files changed, 12 insertions(+), 0 deletions(-)
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".
The branch, master has been updated
hooks/post-receive
--
Gnus Project