Mercurial > emacs

changeset 34761:b4244c3295bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fmake_char_internal): If CHARSET doesn't have a generic character and CODE1 is nil, return the smallest character in CHARSET.
author Kenichi Handa <handa@m17n.org>
date Thu, 21 Dec 2000 00:12:13 +0000
parents ddef5efd6b93
children d8e4421fc16f
files src/charset.c
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/charset.c	Thu Dec 21 00:09:15 2000 +0000
+++ b/src/charset.c	Thu Dec 21 00:12:13 2000 +0000
@@ -967,13 +967,17 @@
     }
   else if (charset_id == CHARSET_8_BIT_CONTROL)
     {
-      if (c1 < 0x80 || c1 > 0x9F)
+      if (NILP (code1))
+	c1 = 0x80;
+      else if (c1 < 0x80 || c1 > 0x9F)
 	goto invalid_code_posints;
       return make_number (c1);
     }
   else if (charset_id == CHARSET_8_BIT_GRAPHIC)
     {
-      if (c1 < 0xA0 || c1 > 0xFF)
+      if (NILP (code1))
+	c1 = 0xA0;
+      else if (c1 < 0xA0 || c1 > 0xFF)
 	goto invalid_code_posints;
       return make_number (c1);
     }