projects
/
chise
/
xemacs-chise.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d47ab32
)
(mapping-table-read-file): Use `char-feature' instead of
author
tomo
<tomo>
Mon, 2 Feb 2004 17:46:44 +0000
(17:46 +0000)
committer
tomo
<tomo>
Mon, 2 Feb 2004 17:46:44 +0000
(17:46 +0000)
`get-char-attribute'.
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
a764315
..
a72c161
100644
(file)
--- a/
lisp/utf-2000/read-maps.el
+++ b/
lisp/utf-2000/read-maps.el
@@
-126,7
+126,7
@@
(put-char-attribute chr ccs code))
(when (and ucs-code
(not (eq (or (encode-char chr ucs-ccs 'defined-only)
(put-char-attribute chr ccs code))
(when (and ucs-code
(not (eq (or (encode-char chr ucs-ccs 'defined-only)
- (get-char-attribute chr '=>ucs))
+ (char-feature chr '=>ucs))
ucs-code)))
(put-char-attribute chr ucs-ccs ucs-code))
(when (and ucs
ucs-code)))
(put-char-attribute chr ucs-ccs ucs-code))
(when (and ucs
@@
-136,7
+136,7
@@
=ucs-jis-2000
;; ucs-big5
)))
=ucs-jis-2000
;; ucs-big5
)))
- (get-char-attribute chr '=>ucs)))
+ (char-feature chr '=>ucs)))
ucs)))
(if (or ucs-code (null ucs-ccs))
(put-char-attribute chr '=>ucs ucs)
ucs)))
(if (or ucs-code (null ucs-ccs))
(put-char-attribute chr '=>ucs ucs)