# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 867848037 0
# Node ID 6a726658dfa93b32e46c225df52489748e85eb29
# Parent  69c0e220b626d61a045fe47390aa1aa9c856ebcf
(Fchar_width): Check if the current buffer has display
table.

diff -r 69c0e220b626 -r 6a726658dfa9 src/charset.c
--- a/src/charset.c	Wed Jul 02 12:53:53 1997 +0000
+++ b/src/charset.c	Wed Jul 02 12:53:57 1997 +0000
@@ -747,13 +747,14 @@
 {
   Lisp_Object val, disp;
   int c;
+  struct Lisp_Char_Table *dp = buffer_display_table ();
 
   CHECK_NUMBER (ch, 0);
 
   c = XINT (ch);
 
   /* Get the way the display table would display it.  */
-  disp = DISP_CHAR_VECTOR (buffer_display_table (current_buffer), (c));
+  disp = dp ? DISP_CHAR_VECTOR (dp, c) : Qnil;
 
   if (VECTORP (disp))
     XSETINT (val, XVECTOR (disp)->size);