projects / chise / xemacs-chise.git.1 / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: d9b0d90)
(mapping-table-read-file): Prefer =ucs@DOMAIN to =ucs.
authortomo <tomo>
Tue, 5 Oct 2004 04:26:38 +0000 (04:26 +0000)
committertomo <tomo>
Tue, 5 Oct 2004 04:26:38 +0000 (04:26 +0000)
lisp/utf-2000/read-maps.el patch | blob | history

diff --git a/lisp/utf-2000/read-maps.el b/lisp/utf-2000/read-maps.el
index d9974c3..c43d38b 100644 (file)
--- a/lisp/utf-2000/read-maps.el
+++ b/lisp/utf-2000/read-maps.el
@@ -120,6 +120,9 @@
              (if (looking-at
                   "[ \t]*U[+-]\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]+\\)")
                  (string-to-int (match-string 1) 16)))
+       (if (and ucs-ccs ucs (not ucs-code))
+           (setq ucs-code ucs
+                 ucs nil))
        (when (setq chr (decode-char ccs code))
          (unless (eq (encode-char chr ccs 'defined-only)
                      code)