Ar an dara lá de mí Márta, scríobh Mike FABIAN:
Apparently XEmacs doesn't support keysymx like 0x100201e.
Nope. You could integrate the following code into your site-start.el, until
we do; the preloaded-unicode-key-translations list might be better if it
were initialised from the XKB mappings you ship.
(defun insert-unicode-keysym ()
"Assuming the last typed key has an associated keysym of the form
UXXXX, where XXXX is the hexadecimal code point of a Unicode
character, insert that Unicode character at point. "
(interactive)
(let* ((unicode-codepoint
(string-to-int
(substring (format "%s" (event-key last-command-event)) 1) 16))
(mule-char (unicode-to-char unicode-codepoint)))
(if mule-char
(insert mule-char)
(error 'text-conversion-error
(format "Could not convert U+%X to a Mule character, sorry"
unicode-codepoint)))))
(defvar preloaded-unicode-key-translations
'(U00A6 U017F U027C U1E9B U201A U201E U204A)
"List of X11 keysyms of the form UXXXX, likely to be typed by the
user. This is a stopgap until we have integrated translation of those
keysyms into XEmacs.")
(dolist (keysym preloaded-unicode-key-translations)
(define-key global-map keysym 'insert-unicode-keysym))
--
“I, for instance, am gung-ho about open source because my family is being
held hostage in Rob Malda’s basement. But who fact-checks me, or Enderle,
when we say something in public? No-one!” -- Danny O’Brien