Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 10:57:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(recompute_width_table): Do the right thing if no previous table existed.

Browse source 
Fix Lisp_Object vs. integer problem.
(width_run_cache_on_off): Let recompute_width_table create the vector.
This commit is contained in:
Karl Heuer 1994-11-18 07:17:17 +00:00
parent b5088f8084
commit 228a2e1a47
1 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/indent.c
View file

@ -130,16 +130,16 @@ recompute_width_table (buf, disptab)
struct Lisp_Vector *disptab;
{
int i;
struct Lisp_Vector *widthtab
= (VECTORP (buf->width_table)
? XVECTOR (buf->width_table)
: XVECTOR (Fmake_vector (make_number (256), make_number (0))));
struct Lisp_Vector *widthtab;
if (!VECTORP (buf->width_table))
buf->width_table = Fmake_vector (make_number (256), make_number (0));
widthtab = XVECTOR (buf->width_table);
if (widthtab->size != 256)
abort ();
for (i = 0; i < 256; i++)
widthtab->contents[i] = character_width (i, disptab);
XSETFASTINT (widthtab->contents[i], character_width (i, disptab));
}
/* Allocate or free the width run cache, as requested by the current
@ -163,8 +163,6 @@ width_run_cache_on_off ()
if (current_buffer->width_run_cache == 0)
{
current_buffer->width_run_cache = new_region_cache ();
current_buffer->width_table = Fmake_vector (make_number (256),
make_number (0));
recompute_width_table (current_buffer, buffer_display_table ());
}
}