aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog9
-rw-r--r--lisp/international/mule.el2
2 files changed, 10 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 38cadc84bc2..b450df03a92 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
12003-08-18 Kenichi Handa <handa@m17n.org>
2
3 * international/mule.el (encode-char): Fix for the ASCII case.
4
52003-08-15 Kenichi Handa <handa@m17n.org>
6
7 * international/fontset.el (setup-default-fontset): Change "*" to
8 nil in the specifications of font family.
9
12003-08-18 Kim F. Storm <storm@cua.dk> 102003-08-18 Kim F. Storm <storm@cua.dk>
2 11
3 * kmacro.el (kmacro-keymap): Group related bindings in 12 * kmacro.el (kmacro-keymap): Group related bindings in
diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index f37c3704cf2..f15e604c037 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -370,7 +370,7 @@ code-point in CCS. Currently not supported and just ignored."
370 (setq split (split-char trans) 370 (setq split (split-char trans)
371 charset (car split))) 371 charset (car split)))
372 (cond ((eq charset 'ascii) 372 (cond ((eq charset 'ascii)
373 char) 373 (or trans char))
374 ((eq charset 'latin-iso8859-1) 374 ((eq charset 'latin-iso8859-1)
375 (+ (nth 1 split) 128)) 375 (+ (nth 1 split) 128))
376 ((eq charset 'mule-unicode-0100-24ff) 376 ((eq charset 'mule-unicode-0100-24ff)