From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 18 Aug 1998 11:02:54 +0000 (+0000)
Subject: (Fmultibyte_char_to_unibyte): New function.
X-Git-Tag: emacs-20.3~19
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1bcc15674cc6c8953f931d05fec68f52c7aa10e3;p=emacs.git

(Fmultibyte_char_to_unibyte): New function.
(syms_of_charset): defsubr it.
---

diff --git a/src/charset.c b/src/charset.c
index e43492a67ae..819045842b5 100644
--- a/src/charset.c
+++ b/src/charset.c
@@ -994,6 +994,26 @@ The conversion is done based on `nonascii-translation-table' (which see)\n\
   return make_number (c);
 }
 
+DEFUN ("multibyte-char-to-unibyte", Fmultibyte_char_to_unibyte,
+       Smultibyte_char_to_unibyte, 1, 1, 0,
+  "Convert the multibyte character CH to unibyte character.\n\
+The conversion is done based on `nonascii-translation-table' (which see)\n\
+ or `nonascii-insert-offset' (which see).")
+  (ch)
+     Lisp_Object ch;
+{
+  int c;
+
+  CHECK_NUMBER (ch, 0);
+  c = XINT (ch);
+  if (c < 0)
+    error ("Invalid multibyte character: %d", c);
+  c = multibyte_char_to_unibyte (c, Qnil);
+  if (c < 0)
+    error ("Can't convert to unibyte character: %d", XINT (ch));
+  return make_number (c);
+}
+
 DEFUN ("char-bytes", Fchar_bytes, Schar_bytes, 1, 1, 0,
   "Return byte length of multi-byte form of CHAR.")
   (ch)
@@ -1819,6 +1839,7 @@ syms_of_charset ()
   defsubr (&Siso_charset);
   defsubr (&Schar_valid_p);
   defsubr (&Sunibyte_char_to_multibyte);
+  defsubr (&Smultibyte_char_to_unibyte);
   defsubr (&Schar_bytes);
   defsubr (&Schar_width);
   defsubr (&Sstring_width);