Index: src/xdisp.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/xdisp.c,v
retrieving revision 1.755
diff -u -d -r1.755 xdisp.c
--- src/xdisp.c	12 Jun 2002 09:37:34 -0000	1.755
+++ src/xdisp.c	15 Jun 2002 18:20:51 -0000
@@ -1614,7 +1614,8 @@
     it->redisplay_end_trigger_charpos = XINT (w->redisplay_end_trigger);
 
   /* Correct bogus values of tab_width.  */
-  it->tab_width = XINT (current_buffer->tab_width);
+  it->tab_width = INTEGERP (current_buffer->display_tab_width) ?
+    current_buffer->display_tab_width : XINT (current_buffer->tab_width);
   if (it->tab_width <= 0 || it->tab_width > 1000)
     it->tab_width = 8;