character/event handling in org-mode

So I was reading the latest org manual, and got to the section about speed-keys, tried them out, and discovered they didn't work in XEmacs since our this-command-keys returns a vector, not a string. I've come up with the following, but surely There Is a Better Way? diff --git a/lisp/org.el b/lisp/org.el index 7be1443..316f50e 100644 --- a/lisp/org.el +++ b/lisp/org.el ＠＠ -16535,7 +16535,7 ＠＠ overwritten, and the table is not marked as requiring realignment."       (setq        org-speed-command        (or (cdr (assoc (this-command-keys) org-speed-commands-user)) -          (cdr (assoc (this-command-keys) org-speed-commands-default))))) +          (cdr (assoc (char-to-string (event-to-character (elt (this-command-keys) 0))) org-speed-commands-default)))))      (cond       ((commandp org-speed-command)        (setq this-command org-speed-command) -- _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/mailman/listinfo/xemacs-beta