Mercurial > hg > xemacs-beta

comparison lisp/x-init.el @ 3439:d1754e7f0cea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-06-03 17:50:39 by aidan] Just-in-time Unicode code point support.
author aidan
date Sat, 03 Jun 2006 17:51:06 +0000
parents 316fddbf58e2
children c3175ca37443
comparison
equal deleted inserted replaced
3438:14fbcab7c67b 3439:d1754e7f0cea
245 (dolist (x-keysym (hash-table-key-list (x-keysym-hash-table))) 245 (dolist (x-keysym (hash-table-key-list (x-keysym-hash-table)))
246 (setq sym-string (if (stringp x-keysym) x-keysym (symbol-name x-keysym))) 246 (setq sym-string (if (stringp x-keysym) x-keysym (symbol-name x-keysym)))
247 (when (and (not (get (intern sym-string) 'character-of-keysym)) 247 (when (and (not (get (intern sym-string) 'character-of-keysym))
248 (string-match "^U[0-9A-F]+$" sym-string)) 248 (string-match "^U[0-9A-F]+$" sym-string))
249 (pushnew (concat sym-string " ") unknown-code-points :test 'equal))) 249 (pushnew (concat sym-string " ") unknown-code-points :test 'equal)))
250 (when unknown-code-points 250 (when (and (featurep 'mule) unknown-code-points)
251 (lwarn 'key-mapping 'info 251 (lwarn 'key-mapping 'info
252 "Undefined Unicode key mappings. 252 "Undefined Unicode key mappings.
253 Your keyboard has, among many others, the following keysyms defined: 253 Your keyboard has, among many others, the following keysyms defined:
254 254
255 %s 255 %s