User: aidan Date: 06/06/25 19:27:31 Modified: xemacs/lisp ChangeLog x-init.el Log: Stop complaining about unknown Unicode keysyms. Revision Changes Path 1.751 +11 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.750 retrieving revision 1.751 diff -u -p -r1.750 -r1.751 --- ChangeLog 2006/06/25 13:58:02 1.750 +++ ChangeLog 2006/06/25 17:27:28 1.751 ＠＠ -1,5 +1,11 ＠＠ 2006-06-25 Aidan Kehoe <kehoea(a)parhasard.net&gt; + * x-init.el (x-initialize-keyboard): + No longer warn about Unicode keysyms without a mapping, since we + now have valid mappings for all Unicode keysyms. + +2006-06-25 Aidan Kehoe <kehoea(a)parhasard.net&gt; + * cmdloop.el (read-quoted-char): Don't error on non-character keys, accept them as terminating the sequence. ＠＠ -26,7 +32,12 ＠＠ * unicode.el: * unicode.el (featurep): + Define a CCL program to translate characters to Unicode, for use + in redisplay with the fall-back Unicode charsets. * x-init.el (x-initialize-keyboard): + Only warn about unknown Unicode keysyms if Mule is available; we + assume that people who've chosen non-Mule are okay with losing + data. 2006-06-03 Adrian Aichner <adrian(a)xemacs.org&gt; 1.18 +1 -36 XEmacs/xemacs/lisp/x-init.el Index: x-init.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/x-init.el,v retrieving revision 1.17 retrieving revision 1.18 diff -u -p -r1.17 -r1.18 --- x-init.el 2006/06/03 17:50:40 1.17 +++ x-init.el 2006/06/25 17:27:29 1.18 ＠＠ -234,42 +234,7 ＠＠ (x-win-init-sun)) ((string-match "XFree86" vendor) ;; Those XFree86 people do some weird keysym stuff, too. - (x-win-init-xfree86)))) - ;; Perhaps tell people that some keys won't work. - ;; - ;; If they remap while XEmacs is running and this problem arises, they - ;; won't see the messages. Which should be okay, assuming the length of - ;; time before we get a Unicode-compatible internal encoding is relatively - ;; short. - (let (unknown-code-points sym-string) - (dolist (x-keysym (hash-table-key-list (x-keysym-hash-table))) - (setq sym-string (if (stringp x-keysym) x-keysym (symbol-name x-keysym))) - (when (and (not (get (intern sym-string) 'character-of-keysym)) - (string-match "^U[0-9A-F]+$" sym-string)) - (pushnew (concat sym-string " ") unknown-code-points :test 'equal))) - (when (and (featurep 'mule) unknown-code-points) - (lwarn 'key-mapping 'info - "Undefined Unicode key mappings. -Your keyboard has, among many others, the following keysyms defined: - -%s -The standards say that applications should interpret these keysyms as -representing the corresponding Unicode code points (e.g. U2720 should -represent MALTESE CROSS), but unfortunately the current version of XEmacs -has no support for many of those characters in its internal encoding, and -when it encounters the keysyms corresponding to those characters, they -remain unbound. - -See the documentation for `unicode-to-char' for one technique if you have an -urgent need for support for one of those characters--you probably don't, -most of the widely-used characters have mappings in the internal XEmacs -encoding--otherwise, wait until we ship a version with an internal encoding -based on Unicode. " - (with-string-as-buffer-contents (apply 'concat " " - unknown-code-points) - (setq fill-prefix " ") - (fill-paragraph nil)))))) - + (x-win-init-xfree86)))))  ;; Moved from x-toolbar.el, since InfoDock doesn't dump x-toolbar.el. (defun x-init-toolbar-from-resources (locale)