andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Katsumi Yamaoka 2013-02-14 00:44:38 +00:00
parent fe33626173
commit 6b26f14f78
2 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -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):

7
lisp/gnus/gnus-util.el
View file

@ -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)