(Fget_byte): Fix and make it faster for unibyte target.

diff --git a/src/ChangeLog b/src/ChangeLog
index d96d8b29459f529c7e00e50108b79023527e5c6b..71da2e8b06f9ad643d5fdf2d4184f147e3204a98 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2008-11-10  Kenichi Handa  <handa@m17n.org>
+
+       * character.c (Fget_byte): Fix and make it faster for unibyte
+       target.
+
 2008-11-08  Chong Yidong  <cyd@stupidchicken.com>
 
        * dired.c (file_name_completion): If completion_ignore_case is

diff --git a/src/character.c b/src/character.c
index 38d4f6ac51013aa10bd202993a3242235d77b52d..66e1b023919a27bbca2bb69edff590db1d7d8774 100644 (file)
--- a/src/character.c
+++ b/src/character.c
@@ -1058,6 +1058,8 @@ character is not ASCII nor 8-bit character, an error is signalled.  */)
          pos = XFASTINT (position);
          p = CHAR_POS_ADDR (pos);
        }
+      if (NILP (current_buffer->enable_multibyte_characters))
+       return make_number (*p);
     }
   else
     {
@@ -1074,6 +1076,8 @@ character is not ASCII nor 8-bit character, an error is signalled.  */)
          pos = XFASTINT (position);
          p = SDATA (string) + string_char_to_byte (string, pos);
        }
+      if (! STRING_MULTIBYTE (string))
+       return make_number (*p);
     }
   c = STRING_CHAR (p, 0);
   if (CHAR_BYTE8_P (c))