File suppress-warning-about-undefined-unicode-key-mappings.patch of Package xemacs

diff -ru xemacs-21.5.21.orig/lisp/x-init.el xemacs-21.5.21/lisp/x-init.el
--- xemacs-21.5.21.orig/lisp/x-init.el	2005-05-10 19:14:42.000000000 +0200
+++ xemacs-21.5.21/lisp/x-init.el	2005-06-13 16:44:51.000000000 +0200
@@ -243,6 +243,7 @@
       (when (and (not (get (intern sym-string) 'ascii-character))
 		 (string-match "^U[0-9A-F]+$" sym-string))
 	(pushnew (concat sym-string " ") unknown-code-points :test 'equal)))
+    (setq unknown-code-points nil)
     (when unknown-code-points
       (lwarn 'key-mapping 'info
       "Undefined Unicode key mappings.
xemacs-21.5.21/lispだけに発見: x-init.el.~1~