SHA256
1
0
forked from pool/xemacs
xemacs/suppress-warning-about-undefined-unicode-key-mappings.patch

13 lines
613 B
Diff

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~